File Coverage

bin/p
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 28 28 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl -w
2              
3 15     15   89 use strict;
  15         22  
  15         574  
4 15     15   68 use warnings;
  15         25  
  15         613  
5 15     15   16584 use lib 'lib';
  15         11798  
  15         75  
6              
7 15     15   8145 use Language::P::Toy::Runtime;
  15         50  
  15         140  
8 15     15   12409 use Language::P::Toy::Generator;
  15         59  
  15         169  
9 15     15   9542 use Language::P;
  15         61  
  15         123  
10              
11 15         268 my $runtime = Language::P::Toy::Runtime->new;
12 15         205 my $generator = Language::P::Toy::Generator->new( { runtime => $runtime } );
13 15         188 my $p = Language::P->new_from_argv( \@ARGV,
14             { runtime => $runtime,
15             generator => $generator,
16             } );
17              
18 15         107 $p->run;