/usr/share/perl5/Getopt/ArgParse/Namespace.pm is in libgetopt-argparse-perl 1.0.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | package Getopt::ArgParse::Namespace;
use Carp;
use strict;
use warnings;
sub new {
my $class = shift;
my $real_class = ref $class || $class;
my $self = {};
bless $self, $real_class;
}
sub set_attr {
my $self = shift;
my ($dest, $values) = @_;
$self->{'-values'}{$dest} = $values;
}
sub get_attr {
my $self = shift;
my ($dest) = @_;
confess "Must provide $dest" unless $dest;
return $self->{'-values'}{$dest} if exists $self->{'-values'}{$dest};
return undef;
}
our $AUTOLOAD;
sub AUTOLOAD {
my $sub = $AUTOLOAD;
(my $dest = $sub) =~ s/.*:://;
my $self = shift;
if ( exists $self->{'-values'}{$dest} ) {
my $values = $self->{'-values'}{$dest};
if (ref($values) eq 'ARRAY') {
return wantarray ? @$values : $values;
} elsif (ref($values) eq 'HASH') {
return wantarray ? %$values : $values;
} else {
return $values;
}
} else {
croak "unknown option: $dest";
}
}
sub DESTROY { }
1;
=head1 NAME
Getopt::ArgParse::Namespace - Utility functions internal to Getopt::ArgParse
=head1 AUTHOR
Mytram <mytram2@gmail.com> (original author)
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2014 by Mytram.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut
|