bareword

bug_const_mod.pl

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;
}