/usr/share/perl5/SQL/Translator/Parser.pm is in libsql-translator-perl 0.11024-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | package SQL::Translator::Parser;
use strict;
use warnings;
our $VERSION = '1.60';
sub parse { "" }
1;
# ----------------------------------------------------------------------
# Enough! or Too much.
# William Blake
# ----------------------------------------------------------------------
=pod
=head1 NAME
SQL::Translator::Parser - describes how to write a parser
=head1 DESCRIPTION
Parser modules that get invoked by SQL::Translator need to implement a
single function: B<parse>. This function will be called by the
SQL::Translator instance as $class::parse($tr, $data_as_string), where
$tr is a SQL::Translator instance. Other than that, the classes are
free to define any helper functions, or use any design pattern
internally that make the most sense.
When the parser has determined what exists, it will communicate the
structure to the producer through the SQL::Translator::Schema object.
This object can be retrieved from the translator (the first argument
pass to B<parse>) by calling the B<schema> method:
my $schema = $tr->schema;
The Schema object has methods for adding tables, fields, indices, etc.
For more information, consult the docs for SQL::Translator::Schema and
its related modules. For examples of how this works, examine the
source code for existing SQL::Translator::Parser::* modules.
=head1 AUTHORS
Ken Youens-Clark, E<lt>kclark@cpan.org<gt>,
darren chamberlain E<lt>darren@cpan.orgE<gt>.
=head1 SEE ALSO
perl(1), SQL::Translator, SQL::Translator::Schema.
=cut
|