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_data => $mask_data,
64:                                                            tags => $tags);