Select Code to Download

package Foo;
use strict;
use XML::LibXML;
...
        return $self;
}
1;

geedorah:~/perldtorbug# perl -MFoo -e 'package foo; bless ($self=[]) =
+> __PACKAGE__; sub DESTROY {Foo->new()}'

...

geedorah:~/perldtorbug#