File: YappTemplate.pm

package info (click to toggle)
libtm-perl 1.20-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 672 kB
  • ctags: 139
  • sloc: perl: 3,707; makefile: 45
file content (40 lines) | stat: -rw-r--r-- 921 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
####################################################################
#
#    This file was generated using Parse::Yapp version <<$version>>.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package <<$package>>;
use vars qw ( @ISA );
use strict;

@ISA= qw ( Parse::Yapp::Driver );
<<$driver>>

<<$head>>

sub new {
    my $class   = shift;
    my %options = @_;
    my $store   = delete $options{store} || new TM;       # the Yapp parser is picky and interprets this :-/

    ref($class) and $class=ref($class);

    my $self = $class->SUPER::new( 
##				   yydebug   => 0x01,
				   yyversion => '<<$version>>',
				   yystates  =>
<<$states>>,
				   yyrules   =>
<<$rules>>,
				   %options);
    $self->{USER}->{store}         = $store;
    return bless $self, $class;
}

<<$tail>>

1;