view release on metacpan or  search on metacpan

data/syml/STD.syml  view on Meta::CPAN

    file: *268
    line: 5122
    name: $!
    scope: my
  $/: !!perl/hash:NAME
    dynamic: 1
    file: *268
    line: 5122
    name: $/
    scope: my
  $?SIGNATURE: ($needsig = 0)
  $_: !!perl/hash:NAME
    dynamic: 1
    file: *268
    line: 5122
    name: $_
    scope: my
  $id: !!perl/hash:NAME
    declaredat: 162394
    file: *268
    inlex: *1853

data/syml/STD.syml  view on Meta::CPAN

    declaredat: 162358
    file: *268
    inlex: *1853
    line: 5125
    mult: only
    name: $line
    of: ~
    scope: my
    used: 1
    xlex: *1853
  $needsig: !!perl/hash:NAME
    declaredat: 162222
    file: *268
    inlex: *1853
    line: 5122
    mult: only
    name: $needsig
    of: ~
    scope: ''
    signum: 1
    used: 2
    xlex: *1853
  $oid: !!perl/hash:NAME
    declaredat: 162249
    file: *268
    inlex: *1853
    line: 5123

lib/STD.pm  view on Meta::CPAN

require STD_P5;
$self;
};
## method require_P6
sub require_P6 {
no warnings 'recursion';
my $self = shift;
require STD_P6;
$self;
};
## method newlex ($needsig = 0)
sub newlex {
no warnings 'recursion';
my $self = shift;
my $needsig = @_ ? shift() : 0;
my $oid = $::CURLEX->id;
$ALL->{$oid} == $::CURLEX or die "internal error: current lex id is invalid";
my $line = $self->lineof($self->{'_pos'});
my $id;
if ($::NEWLEX) {
$::NEWLEX->{'OUTER::'} = $::CURLEX->idref;
$::CURLEX = $::NEWLEX;
$::NEWLEX = 0;
$id = $::CURLEX->id;
}
else {
$id = 'MY:file<' . $::FILE->{'name'} . '>:line(' . $line . '):pos(' . $self->{'_pos'} . ')';
$::CURLEX = Stash->new(
'OUTER::' => [$oid],
'!file' => $::FILE, '!line' => $line,
'!id' => [$id],
);
};
$::CURLEX->{'!NEEDSIG'} = 1 if $needsig;
$::CURLEX->{'!IN_DECL'} = $::IN_DECL if $::IN_DECL;
$ALL->{$id} = $::CURLEX;
$self->{'LEX'} = $::CURLEX;
$::DECLARAND->{'curlex'} = $::CURLEX if $::DECLARAND;
$self;
};
## method finishlex
sub finishlex {
no warnings 'recursion';
my $self = shift;