Select Code to Download

Select or download this

package Badly_Behaved;

...
package main;

$hmph = Badly_Behaved->new();

Select or download this

#!/usr/bin/perl -w
use strict;
...

sub dump_log {
}

Select or download this

  (in cleanup) Can't call method "def_by_name" on an
undefined value at
/usr/lib/perl5/site_perl/5.6.1/XML/Comma/NestedElement.pm
line 288 during global destruction.

Select or download this

#!/usr/bin/perl -w
use strict;
...
  XML::Comma::Def->read(name=>'AllAfrica_NewsStory')->get_index('post'
+);

print "-->index/def: " $::index . ' ' . $::index->{_def} . "\n";

Select or download this

D: XML::Comma::NestedElement=HASH(0x86eeb6c)
   XML::Comma::Bootstrap=HASH(0x86a2084)
...
  _Index_columns --> HASH(0x86f8a2c)
D: XML::Comma::NestedElement=HASH(0x86eea58)
   <undef>

Select or download this

D: XML::Comma::NestedElement=HASH(0x8ae51c4)
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XM
+L/Comma/AbstractElement.pm:224):
...
    new value:  undef
XML::Comma::AbstractElement::DESTROY(/u/khkramer/src/perl/XML-Comma/XM
+L/Comma/AbstractElement.pm:223):
223:      print 'D: ' . $_[0] . "\n";