/usr/share/perl5/MouseX/Types/Path/Class.pm is in libmousex-types-path-class-perl 0.06-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 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 | package MouseX::Types::Path::Class;
use 5.008_001;
use strict;
use warnings;
use Path::Class ();
use MouseX::Types -declare => [qw(Dir File)]; # export Types
use MouseX::Types::Mouse qw(Str ArrayRef);
our $VERSION = '0.06';
class_type 'Path::Class::Dir';
class_type 'Path::Class::File';
subtype Dir, as 'Path::Class::Dir';
subtype File, as 'Path::Class::File';
for my $type ( 'Path::Class::Dir', Dir ) {
coerce $type,
from Str, via { Path::Class::Dir->new($_) },
from ArrayRef, via { Path::Class::Dir->new(@$_) };
}
for my $type ( 'Path::Class::File', File ) {
coerce $type,
from Str, via { Path::Class::File->new($_) },
from ArrayRef, via { Path::Class::File->new(@$_) };
}
# optionally add Getopt option type
eval { require MouseX::Getopt };
unless ($@) {
MouseX::Getopt::OptionTypeMap->add_option_type_to_map($_, '=s')
for ( 'Path::Class::Dir', 'Path::Class::File', Dir, File );
}
1;
=head1 NAME
MouseX::Types::Path::Class - A Path::Class type library for Mouse
=head1 SYNOPSIS
=head2 CLASS TYPES
package MyApp;
use Mouse;
use MouseX::Types::Path::Class;
has 'dir' => (
is => 'ro',
isa => 'Path::Class::Dir',
required => 1,
coerce => 1,
);
has 'file' => (
is => 'ro',
isa => 'Path::Class::File',
required => 1,
coerce => 1,
);
=head2 CUSTOM TYPES
package MyApp;
use Mouse;
use MouseX::Types::Path::Class qw(Dir File);
has 'dir' => (
is => 'ro',
isa => Dir,
required => 1,
coerce => 1,
);
has 'file' => (
is => 'ro',
isa => File,
required => 1,
coerce => 1,
);
=head1 DESCRIPTION
MouseX::Types::Path::Class creates common L<Mouse> types,
coercions and option specifications useful for dealing
with L<Path::Class> objects as L<Mouse> attributes.
Coercions (see L<Mouse::Util::TypeConstraints>) are made
from both C<Str> and C<ArrayRef> to both L<Path::Class::Dir> and
L<Path::Class::File> objects.
If you have L<MouseX::Getopt> installed,
the Getopt option type ("=s") will be added for both
L<Path::Class::Dir> and L<Path::Class::File>.
=head1 TYPES
=head2 Dir
=over 4
A L<Path::Class::Dir> class type.
Coerces from C<Str> and C<ArrayRef> via L<Path::Class::Dir/new>.
=back
=head2 File
=over 4
A L<Path::Class::File> class type.
Coerces from C<Str> and C<ArrayRef> via L<Path::Class::File/new>.
=back
=head1 AUTHOR
NAKAGAWA Masaki E<lt>masaki@cpan.orgE<gt>
=head1 THANKS TO
L<MooseX::Types::Path::Class/AUTHOR>
=head1 LICENSE
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=head1 SEE ALSO
L<Mouse>, L<MouseX::Types>,
L<Path::Class>,
L<MooseX::Types::Path::Class>
=cut
|