view release on metacpan or  search on metacpan

bin/navegante  view on Meta::CPAN

15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
@ISA= qw ( Parse::Yapp::Driver );
use Parse::Yapp::Driver;
 
 
 
sub new {
        my($class)=shift;
        ref($class)
    and $class=ref($class);
 
    my($self)=$class->SUPER::new( yyversion => '1.05',
                                  yystates =>
[
        {#State 0
                DEFAULT => -19,
                GOTOS => {
                        'actions' => 1,
                        'f' => 2
                }
        },
        {#State 1