File Coverage

blib/lib/Parse/Yapp/KeyValue/Parser.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	1	2	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	16	18	88.8

####################################################################
#
#    This file was generated using Parse::Yapp version 1.05.
#
#        Don't edit this file, use source file instead.
#
#             ANY CHANGE MADE HERE WILL BE LOST !
#
####################################################################
package Parse::Yapp::KeyValue::Parser;
use vars qw ( @ISA );
use strict;

@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
		ACTIONS => {
			'KEY' => 5,
			'TEXT_NONQUOTED' => 1,
			'TEXT_Q_DOUBLE' => 3,
			'TEXT_Q_SINGLE' => 8,
			'OP_ASSIGNMENT' => 7
		},
		GOTOS => {
			'string' => 4,
			'pair' => 6,
			'pairs' => 2
		}
	},
	{#State 1
		DEFAULT => -9
	},
	{#State 2
		ACTIONS => {
			'OP_ASSIGNMENT' => 7,
			'TEXT_Q_SINGLE' => 8,
			'EOI' => 10,
			'' => 11,
			'TEXT_NONQUOTED' => 1,
			'TEXT_Q_DOUBLE' => 3,
			'KEY' => 5
		},
		GOTOS => {
			'string' => 4,
			'pair' => 9
		}
	},
	{#State 3
		DEFAULT => -8
	},
	{#State 4
		DEFAULT => -6
	},
	{#State 5
		ACTIONS => {
			'OP_ASSIGNMENT' => 12
		},
		DEFAULT => -10
	},
	{#State 6
		DEFAULT => -1
	},
	{#State 7
		ACTIONS => {
			'KEY' => 14,
			'TEXT_Q_DOUBLE' => 3,
			'TEXT_NONQUOTED' => 1,
			'TEXT_Q_SINGLE' => 8
		},
		GOTOS => {
			'string' => 13
		}
	},
	{#State 8
		DEFAULT => -7
	},
	{#State 9
		DEFAULT => -2
	},
	{#State 10
		DEFAULT => -3
	},
	{#State 11
		DEFAULT => 0
	},
	{#State 12
		ACTIONS => {
			'KEY' => 14,
			'TEXT_NONQUOTED' => 1,
			'TEXT_Q_DOUBLE' => 3,
			'TEXT_Q_SINGLE' => 8
		},
		GOTOS => {
			'string' => 15
		}
	},
	{#State 13
		DEFAULT => -5
	},
	{#State 14
		DEFAULT => -10
	},
	{#State 15
		DEFAULT => -4
	}
],
                                  yyrules  =>
[
	[#Rule 0
		 '$start', 2, undef
	],
	[#Rule 1
		 'pairs', 1, undef
	],
	[#Rule 2
		 'pairs', 2, undef
	],
	[#Rule 3
		 'pairs', 2, undef
	],
	[#Rule 4
		 'pair', 3,
sub
#line 15 "grammar.yp"
{
         my $data = $_[0]->YYData->{DATA};

         if (exists $data->{$_[1]}) {
            my $val = $data->{$_[1]};

            if (ref $val eq 'ARRAY') {
                push @{ $val }, $_[3];
            } else {
                $data->{$_[1]} = [ $val, $_[3] ];
            }
         } else {
            $data->{$_[1]} = $_[3];
         }
     }
	],
	[#Rule 5
		 'pair', 2,
sub
#line 31 "grammar.yp"
{
         my $data = $_[0]->YYData->{DATA};

         if (exists $data->{''}) {
            my $val = $data->{''};

            if (ref $val eq 'ARRAY') {
                push @{ $val }, $_[2];
            } else {
                $data->{''} = [ $val, $_[2] ];
            }
         } else {
            $data->{''} = $_[2];
         }
     }
	],
	[#Rule 6
		 'pair', 1,
sub
#line 47 "grammar.yp"
{
         my $data = $_[0]->YYData->{DATA};

         if (exists $data->{''}) {
            my $val = $data->{''};

            if (ref $val eq 'ARRAY') {
                push @{ $val }, $_[1];
            } else {
                $data->{''} = [ $val, $_[1] ];
            }
         } else {
            $data->{''} = $_[1];
         }
     }
	],
	[#Rule 7
		 'string', 1,
sub
#line 65 "grammar.yp"
{ chop $_[1]; substr $_[1], 1; }
	],
	[#Rule 8
		 'string', 1,
sub
#line 67 "grammar.yp"
{ chop $_[1]; substr $_[1], 1; }
	],
	[#Rule 9
		 'string', 1,
sub
#line 69 "grammar.yp"
{ $_[1] }
	],
	[#Rule 10
		 'string', 1,
sub
#line 71 "grammar.yp"
{ $_[1] }
	]
],
                                  @_);
    bless($self,$class);
}

#line 74 "grammar.yp"

# vim:ts=4:et:sw=4

1;