Skip to content
This repository
tree: c5cd4cde3d
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 58 lines (53 sloc) 1.568 kb
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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
# Do not edit this file - Generated by Perlito6 9.0
use v5;
use utf8;
use strict;
use warnings;
no warnings ('redefine', 'once', 'void', 'uninitialized', 'misc', 'recursion');
use Perlito6::Perl5::Runtime;
use Perlito6::Perl5::Prelude;
our $MATCH = Perlito6::Match->new();
{
package GLOBAL;
    sub new { shift; bless { @_ }, "GLOBAL" }

    # use v6
;
    {
    package Perlito6::Perl5::Match;
        sub new { shift; bless { @_ }, "Perlito6::Perl5::Match" }
        sub str { $_[0]->{str} };
        sub array { $_[0]->{array} };
        sub hash { $_[0]->{hash} };
        sub result_object { $_[0]->{result_object} };
        sub from { $_[0]->{from} };
        sub to { $_[0]->{to} };
        sub bool { $_[0]->{bool} };
        sub scalar {
            my $self = $_[0];
            if ($self->{bool}) {
                return scalar (undef())
            };
            if (defined($self->{result_object})) {
                return scalar ($self->{result_object})
            };
            return scalar (substr($self->{str}, $self->{from}, ((($self->{to} - $self->{from})) + 1)))
        };
        sub __get_bool {
            my $self = $_[0];
            return scalar ($self->{bool})
        };
        sub __get_int {
            my $self = $_[0];
            return scalar ((0 + $self->scalar()))
        };
        sub __get_number {
            my $self = $_[0];
            return scalar ((0 + $self->scalar()))
        };
        sub __get_string {
            my $self = $_[0];
            return scalar ($self->scalar())
        }
    }


}

1;
Something went wrong with that request. Please try again.