# Do not edit this file - Generated by Perlito 7.0
use v5;
use utf8;
use strict;
use warnings;
no warnings ('redefine', 'once', 'void', 'uninitialized', 'misc', 'recursion');
use Perlito::Perl5::Runtime;
use Perlito::Perl5::Prelude;
our $MATCH = Perlito::Match->new();
{
package GLOBAL;
sub new { shift; bless { @_ }, "GLOBAL" }

# use v6 
;
{
package Perlito::Match;
sub new { shift; bless { @_ }, "Perlito::Match" }
sub from { $_[0]->{from} };
sub to { $_[0]->{to} };
sub str { $_[0]->{str} };
sub bool { $_[0]->{bool} };
sub capture { $_[0]->{capture} };
sub scalar { my $self = $_[0]; if (Main::bool($self->{bool})) { if (Main::bool(defined($self->{capture}))) { return scalar ($self->{capture}) } ; return scalar (substr($self->{str}, $self->{from}, (($self->{to} - $self->{from})))) } else { return scalar ('') } };
sub string { my $self = $_[0]; if (Main::bool($self->{bool})) { if (Main::bool(defined($self->{capture}))) { return scalar ($self->{capture}) } ; return scalar (substr($self->{str}, $self->{from}, (($self->{to} - $self->{from})))) } else { return scalar ('') } }
}

;
{
package Pair;
sub new { shift; bless { @_ }, "Pair" }
sub key { $_[0]->{key} };
sub value { $_[0]->{value} };
sub perl { my $self = $_[0]; return scalar ($self->{key} . ' => ' . Main::perl($self->{value}, )) }
}

;
{
package Main;
sub new { shift; bless { @_ }, "Main" }
sub to_lisp_identifier { my $ident = $_[0]; return scalar ('sv-' . $ident) };
sub lisp_dump_object { my $class_name = $_[0]; my $data = $_[1]; return scalar ($class_name . '( ' . Main::join(([ map { Main::perl( $_, , ) } @{( $data )} ]), ', ') . ' )') }
}


}

1;
