17 |
|
|
18 |
=head1 VERSION |
=head1 VERSION |
19 |
|
|
20 |
Version 0.05 |
Version 0.06 |
21 |
|
|
22 |
=cut |
=cut |
23 |
|
|
24 |
our $VERSION = '0.05'; |
our $VERSION = '0.06'; |
25 |
|
|
26 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
27 |
|
|
148 |
return $self->{_lookup_create}->{ _q($database) }->{ _q($input) }; |
return $self->{_lookup_create}->{ _q($database) }->{ _q($input) }; |
149 |
} |
} |
150 |
|
|
151 |
|
=head2 normalize_rules |
152 |
|
|
153 |
|
my $source = $parser->normalize_rules($database, $input); |
154 |
|
|
155 |
|
=cut |
156 |
|
|
157 |
|
sub normalize_rules { |
158 |
|
my $self = shift; |
159 |
|
my ($database,$input) = @_; |
160 |
|
$input = _input_name($input); |
161 |
|
return unless ( |
162 |
|
defined( $self->{_normalize_source}->{ _q($database) } ) && |
163 |
|
defined( $self->{_normalize_source}->{ _q($database) }->{ _q($input) } ) |
164 |
|
); |
165 |
|
return $self->{_normalize_source}->{ _q($database) }->{ _q($input) }; |
166 |
|
} |
167 |
|
|
168 |
=head1 PRIVATE |
=head1 PRIVATE |
169 |
|
|
170 |
=head2 _read_sources |
=head2 _read_sources |