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