Select Code to Download

  DB<18> .
Program::Plist::Pl::_create_pattern_obj(/nfs/pdx/disks/nehalem.pde.077
+/projects/lib/Program-Plist-Pl/lib/Program/Plist/Pl.pm:62):
62:         my $pattern_obj = Program::Plist::Pl::Pattern->new(name =>
+ $name,
63:                                                            mask_da
+ta => $mask_data,
64:                                                            tags =>
+ $tags);

  DB<3> print Dumper(\%Program::Plist::Pl::Pattern::);
$VAR1 = {
          'import' => *Program::Plist::Pl::Pattern::import,
...
          'BEGIN' => *Program::Plist::Pl::Pattern::BEGIN,
          'isa' => *Program::Plist::Pl::Pattern::isa
        };

  DB<4> print Dumper \@Program::Plist::Pl::Pattern::ISA
$VAR1 = [
          'Moose::Object'
        ];

  DB<6> print Dumper \%Moose::Object::
$VAR1 = {
          '__mx_is_compiled' => *Moose::Object::__mx_is_compiled,
...

          'DOES' => *Moose::Object::DOES
        };

  DB<14> &Moose::Object::new('arg1');
MOOSE->NEW CALLED WITH ARGS (arg1)
Can't locate object method "BUILDARGS" via package "arg1" (perhaps you
+ forgot to load "arg1"?) at /nfs/pdx/disks/nehalem.pde.077/debug/Moos
+e/Object.pm line 25, <$fh> line 8.

  DB<1> c
Program::Plist::Pl::_create_pattern_obj(/nfs/pdx/disks/nehalem.pde.077
+/projects/lib/Program-Plist-Pl/lib/Program/Plist/Pl.pm:62):
62:         my $pattern_obj = Program::Plist::Pl::Pattern->new(name =>
+ $name,
63:                                                            mask_da
+ta => $mask_data,
64:                                                            tags =>
+ $tags);

  DB<18> s
MooseX::Types::EXPORTED_TYPE_CONSTRAINT=CODE(0x1ec2ca8)(/nfs/pdx/disks
+/nehalem.pde.077/debug/MooseX/Types.pm:386):
386:            my $type_constraint = $class->create_base_type_constra
+int($name);