Select Code to Download

Select or download this

#!/usr/bin/perl
our @fields;
...
my $self=main->new();

P "one=%s, two=%s, three=%s", $self->one, $self->two, $self->three;

Select or download this
```
> /tmp/t.pl
one=1, two=2, three=3
```

Select or download this

> /tmp/t.pl
Can't modify logical and (&&) in lvalue subroutine return at /Users/la
+w.Bliss/bin/lib/Data/Vars.pm line 108, near "}"
BEGIN not safe after errors--compilation aborted at /Users/law.Bliss/b
+in/lib/Data/Vars.pm line 111.
Compilation failed in require at /tmp/t.pl line 4.
BEGIN failed--compilation aborted at /tmp/t.pl line 4.

Select or download this

  sub _Var ($$$;$) :lvalue {                  # Wrkhorse code for manu
+fctrd Vars
    my ($p, $vn, $wa) = @{(shift)};           # vn=varname
...
  # "address(ref)-of" function (
  sub _addr_of_($) { (#111 -- basically next line of code)

Select or download this

can't modify logical and (&&) in lvalue subroutine return.

Select or download this

> perl -d bin/dedup

...
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.
  DB<1>

Select or download this

  BEGIN { #140
    if (require "Dbg.pm") {   # import if there, else not; no error if
+ not using TPe
      Dbg->import;
    } #143
  }  #144

Select or download this

use Data::Vars \@fields, {mmap=>1, aio_respQ=>{}, examine_paths=>[], S
+YS_IO=>1,
              use_child_ra=>1};

Select or download this

$a==NULL && $a=xxx; (needs parens or 'and' instead of '&&').