     my $pattern_obj = Program::Plist::Pl::Pattern->new(name => $name,                                                        mask_data => $mask_data,                                                        tags => $tags);     $self->_add_pattern($pattern_obj); }  