Skip to content

Instantly share code, notes, and snippets.

@catb0t
Created February 26, 2019 06:16
Show Gist options
  • Save catb0t/8373af60570124c3335b1175b6849131 to your computer and use it in GitHub Desktop.
Save catb0t/8373af60570124c3335b1175b6849131 to your computer and use it in GitHub Desktop.
bareword
use lib ("\/home\/cat\/perl5\/lib\/perl5");
use Sidef;
binmode( STDIN, ':utf8' );
binmode( STDOUT, ':utf8' );
binmode( STDERR, ':utf8' ) if $^P == 0;
package Sidef::Runtime {
use utf8;
use 5.026;
use constant {
String947984412975281 =>
Sidef::Types::String::String->new("any\ value"),
String947984407478881 => Sidef::Types::String::String->new("works\ "),
String947984405465521 => Sidef::Types::String::String->new("fails\ "),
};
my $new94798440647328;
my $f94798440626944;
my ($a94798440326208);
BEGIN { $Sidef::Runtime::OP4394798440286224 = "\+" }
sub VALUE94798440788424() {
state $_94798440788424= do { (Sidef::Runtime::String947984412975281) }
}
(
(
CORE::say(
( (Sidef::Runtime::String947984407478881) )
->$Sidef::Runtime::OP4394798440286224(
(undef) || ( (VALUE94798440788424) )
)
)
) ? Sidef::Types::Bool::Bool::TRUE : Sidef::Types::Bool::Bool::FALSE
);
do {
package Sidef::Runtime::94798440648864::main::A {
use parent qw(-norequire Sidef::Object::Object);
$new94798440647328 = Sidef::Types::Block::Block->new(
code => sub {
my $self = bless {}, __PACKAGE__;
if ( defined( my $sub = UNIVERSAL::can( $self, "init" ) ) )
{
$sub->($self);
}
$self;
},
vars => [],
table => {},
type => "class",
name => "Sidef\:\:Runtime\:\:94798440648864\:\:main\:\:A"
);
state $_94798440647328= do {
no strict 'refs';
*{"Sidef\:\:Runtime\:\:94798440648864\:\:main\:\:A\:\:new"} =
*{"Sidef\:\:Runtime\:\:94798440648864\:\:main\:\:A\:\:call"}
= sub { CORE::shift(@_); $new94798440647328->call(@_) }
};
$f94798440626944 = Sidef::Types::Block::Block->new(
code => sub {
my ($self94798440625792) = @_;
my @return;
(
(
CORE::say(
( (Sidef::Runtime::String947984407478881) )
->$Sidef::Runtime::OP4394798440286224(
( VALUE94798440788424() )
)
)
)
? Sidef::Types::Bool::Bool::TRUE
: Sidef::Types::Bool::Bool::FALSE
);
return do {
(
(
CORE::say(
( (Sidef::Runtime::String947984405465521) )
->$Sidef::Runtime::OP4394798440286224(
(undef) || ( ( VALUE94798440788424() ) )
)
)
)
? Sidef::Types::Bool::Bool::TRUE
: Sidef::Types::Bool::Bool::FALSE
);
};
END94798440628288: @return;
},
type => "method",
name => "f",
class => "Sidef\:\:Runtime\:\:94798440648864\:\:main\:\:A",
vars => [ { name => "self" } ],
table => { "self" => 0 }
);
state $_94798440626944= do {
no strict 'refs';
$Sidef::Runtime::94798440648864::main::A::__SIDEF_CLASS_METHODS__{
'f'} = $f94798440626944;
*{"Sidef\:\:Runtime\:\:94798440648864\:\:main\:\:A\:\:f"} =
sub { $f94798440626944->call(@_) }
}
};
'Sidef::Runtime::94798440648864::main::A';
};
CORE::sub: lvalue {
($a94798440326208) =
( ('Sidef::Runtime::94798440648864::main::A')->call );
($a94798440326208)
}
->();
($a94798440326208)->f;
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment