ABNF-Grammar
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/ABNF/Generator.pm view on Meta::CPAN
use 5.014;
use strict;
use warnings;
no warnings "recursion";
use Carp;
use Readonly;
use Method::Signatures;
use Data::Dumper;
use Parse::ABNF;
use List::Util qw(shuffle);
use ABNF::Grammar qw($BASIC_RULES splitRule);
use ABNF::Validator;
use base qw(Exporter);
our @EXPORT_OK = qw($CONVERTERS $BASIC_RULES $RECURSION_LIMIT);
lib/ABNF/Generator/Honest.pm view on Meta::CPAN
=head1 METHODS
=cut
use 5.014;
use strict;
use warnings;
no warnings "recursion";
use Data::Dumper;
use Readonly;
use List::Util qw(reduce);
use POSIX;
use base qw(ABNF::Generator Exporter);
use Method::Signatures; #some bug in B<Devel::Declare>...
use ABNF::Generator qw($CONVERTERS);
lib/ABNF/Generator/Liar.pm view on Meta::CPAN
=head1 METHODS
=cut
use 5.014;
use strict;
use warnings;
use Readonly;
use Data::Dumper;
use Carp;
use POSIX;
use base qw(ABNF::Generator Exporter);
use Method::Signatures; #some bug in B<Devel::Declare>...
use ABNF::Grammar qw(splitRule $BASIC_RULES);
lib/ABNF/Grammar.pm view on Meta::CPAN
=cut
use 5.014;
use strict;
use warnings;
use Carp;
use Readonly;
use Method::Signatures;
use Data::Dumper;
use Parse::ABNF;
use Storable qw(dclone);
use base "Exporter";
our @EXPORT_OK = qw(splitRule Grammar $BASIC_RULES);
our $VERSION = "0.08";
Readonly our $BASIC_RULES => do {
my $res = {};
lib/ABNF/Validator.pm view on Meta::CPAN
use 5.014;
use strict;
use warnings;
use re 'eval';
use Carp;
use Readonly;
use Method::Signatures;
use Data::Dumper;
use Parse::ABNF;
use ABNF::Grammar qw(splitRule $BASIC_RULES);
use base qw(Exporter);
our @EXPORT_OK = qw(Validator);
Readonly my $ARGUMENTS_RULES => "generic_arguments_rule_for_";
t/ABNF-Generator-Honest.t view on Meta::CPAN
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 26;
use ABNF::Grammar qw(Grammar);
use ABNF::Validator qw(Validator);
BEGIN {
use_ok('ABNF::Generator::Honest', qw(Honest));
};
my $grammar = Grammar->new("t/data/test.abnf", qw(token pair expr noop minus));
$grammar->replaceBasicRule("CRLF", {
class => "Rule",
t/ABNF-Validator.t view on Meta::CPAN
use strict;
use warnings;
use Data::Dumper;
use Test::More tests => 11;
use ABNF::Grammar qw(Grammar);
BEGIN {
use_ok('ABNF::Validator', qw(Validator));
};
my $grammar = Grammar->new("t/data/test.abnf", qw(token pair expr minus noop));
$grammar->replaceBasicRule("CRLF", {
class => "Rule",
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.611 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )