Help for this page

Select Code to Download


  1. or download this
    BEGIN { $^W = 1; }
use AA::BB;
...
    }
};
test.pl syntax OK
  2. or download this
    #! /usr/bin/perl -w
use strict;
...
use AA::BB;

eval { die AA::BB->new; } or print "Caught exception $@";
  3. or download this
    package AA::BB;

...
    return bless {},shift;
}
1;
  4. or download this
    die called with args 'AA::BB=HASH(0x81761c8)'