-
Notifications
You must be signed in to change notification settings - Fork 47
/
Prelude.pm
44 lines (39 loc) · 1.02 KB
/
Prelude.pm
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
# Do not edit this file - Generated by Perlito 8.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 scalar {
my $self = $_[0];
substr($self->{str}, $self->{from}, (($self->{to} - $self->{from})))
}
}
;
{
package Pair;
sub new { shift; bless { @_ }, "Pair" }
sub key { $_[0]->{key} };
sub value { $_[0]->{value} };
sub perl {
my $self = $_[0];
return scalar (($self->{key} . ' ' . chr(61) . '> ' . Main::perl($self->{value}, )))
}
}
}
1;