#!/usr/bin/perl
package SQL::QueryBuilder::Pretty::Database::ANSI::Identifier;
use base qw(SQL::QueryBuilder::Pretty::Rule);
use strict;
use warnings;
our $VERSION = '0.01';
use Carp qw(croak);
use Data::Dumper;
sub order { return 90 }
sub match {
return qr/
[\w:@]+(?:\.(?:\w+|\*)?)*
/x;
}
1;
__END__
=head1 NAME
SQL::QueryBuilder::Pretty::Database::ANSI::Identifier - Rule to process ANSI
identifiers.
=head1 VERSION
Version 0.01
=head1 INHERITANCE
Is a L<SQL::QueryBuilder::Pretty::Rule>.
=head1 DESCRIPTION
Rule to process ANSI identifier.
=head2 METHODS
=over 4
=item I<PACKAGE>->new()
Initializes the object.
=item I<$obj>->action($print_object, $token)
THe action to be executed on match. Must return 1 to skip the next rules.
$print_object is a L<SQL::QueryBuilder::Pretty::Print> object.
$token is the result of the match.
=item I<$obj>->match
Returns the match regular expression for this rule.
=item I<$obj>->name
Returns the name of the rule. By default the pm file. Not used yet.
=item I<$obj>->order
Returns the order value for this rule. Default is 999.
=item I<$obj>->type
Returns the type of this rule. Not used yet.
=back
=head1 SEE ALSO
L<SQL::QueryBuilder::Pretty>, L<SQL::QueryBuilder::Pretty::Print>
and L<SQL::QueryBuilder::Pretty::Rule>.
=head1 AUTHOR
André Rivotti Casimiro, C<< <rivotti at cpan.org> >>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2009 by André Rivotti Casimiro. Published under the terms of
the Artistic License 2.0.
=cut