/usr/share/perl5/MooseX/Types/UndefinedType.pm is in libmoosex-types-perl 0.45-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 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 | use warnings;
use strict;
package MooseX::Types::UndefinedType;
# ABSTRACT: a fallback type for when a type cannot be found
$MooseX::Types::UndefinedType::VERSION = '0.45';
use Moose::Util::TypeConstraints ();
use Carp::Clan '^MooseX::Types';
use namespace::autoclean 0.16;
use overload '""' => sub { shift->name },
fallback => 1;
#pod =head1 DESCRIPTION
#pod
#pod Whenever a type handle function (e.g. C<Int()> can't find a type
#pod constraint under its full name, it assumes it has not yet been defined.
#pod It will then return an instance of this class, handling only
#pod stringification, name and possible identification of undefined types.
#pod
#pod Later, when you try to use the Undefined Type Constraint, autovivification will
#pod be attempted.
#pod
#pod =head1 METHODS
#pod
#pod =head2 new
#pod
#pod Takes a full type name as argument and returns an instance of this
#pod class.
#pod
#pod =cut
sub new {
return bless { name => $_[1] }, $_[0];
}
#pod =head2 name
#pod
#pod Returns the stored type name.
#pod
#pod =cut
sub name {
return $_[0]->{name};
}
#pod =head2 __autovivify
#pod
#pod Try to see if the type constraint has yet been defined and if so create it.
#pod
#pod =cut
sub __autovivify {
my ($self) = @_;
if(my $tc = $self->{instance}) {
return $tc;
} elsif( my $new_tc = Moose::Util::TypeConstraints::find_type_constraint($self->name)) {
$self->{instance} = $new_tc;
return $new_tc;
} else {
return;
}
}
#pod =head2 can_be_inlined
#pod
#pod Make sure that if a type hasn't been defined yet when Moose wants to inline it,
#pod we don't allow inlining.
#pod
#pod =cut
sub can_be_inlined {
my $self = shift;
if(my $type_constraint = $self->__autovivify) {
return $type_constraint->can_be_inlined;
} else {
return;
}
}
#pod =head2 AUTOLOAD
#pod
#pod Try to autovivify and delegate
#pod
#pod =cut
sub AUTOLOAD {
my ($self, @args) = @_;
my ($method) = our $AUTOLOAD =~ /([^:]+)$/;
if(my $type_constraint = $self->__autovivify) {
return $type_constraint->$method(@args);
} else {
croak "Method '$method' is not supported for " . $self->name;
}
}
#pod =head2 DESTROY
#pod
#pod Moose::Meta::TypeConstraint::Parameterizable complains if this isn't here. TODO
#pod to find out why.
#pod
#pod =cut
sub DESTROY {
return;
}
#pod =head1 SEE ALSO
#pod
#pod L<MooseX::Types::Moose>,
#pod L<Moose::Util::TypeConstraints>,
#pod L<Moose::Meta::TypeConstraint>,
#pod L<Carp::Clan>
#pod
#pod =cut
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
MooseX::Types::UndefinedType - a fallback type for when a type cannot be found
=head1 VERSION
version 0.45
=head1 DESCRIPTION
Whenever a type handle function (e.g. C<Int()> can't find a type
constraint under its full name, it assumes it has not yet been defined.
It will then return an instance of this class, handling only
stringification, name and possible identification of undefined types.
Later, when you try to use the Undefined Type Constraint, autovivification will
be attempted.
=head1 METHODS
=head2 new
Takes a full type name as argument and returns an instance of this
class.
=head2 name
Returns the stored type name.
=head2 __autovivify
Try to see if the type constraint has yet been defined and if so create it.
=head2 can_be_inlined
Make sure that if a type hasn't been defined yet when Moose wants to inline it,
we don't allow inlining.
=head2 AUTOLOAD
Try to autovivify and delegate
=head2 DESTROY
Moose::Meta::TypeConstraint::Parameterizable complains if this isn't here. TODO
to find out why.
=head1 SEE ALSO
L<MooseX::Types::Moose>,
L<Moose::Util::TypeConstraints>,
L<Moose::Meta::TypeConstraint>,
L<Carp::Clan>
=head1 AUTHOR
Robert "phaylon" Sedlacek <rs@474.at>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2007 by Robert "phaylon" Sedlacek.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|