Help for this page

Select Code to Download


  1. or download this
    package Foo;
use strict;
use XML::LibXML;
...
bless my $self=[] => __PACKAGE__;
my $f=Foo->new();
  2. or download this
    #Foo.pm
package Foo;
use strict;
...
        return $self;
}
1;
  3. or download this
    #!/usr/bin/perl
#this is crash.pl
...

sub DESTROY {Foo->new()}