/usr/share/perl5/Class/Meta/Types/Perl.pm is in libclass-meta-perl 0.66-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 | package Class::Meta::Types::Perl;
=head1 NAME
Class::Meta::Types::Perl - Perl data types
=head1 SYNOPSIS
package MyApp::Thingy;
use strict;
use Class::Meta;
use Class::Meta::Types::Perl;
# OR...
# use Class::Meta::Types::Perl 'affordance';
# OR...
# use Class::Meta::Types::Perl 'semi-affordance';
BEGIN {
# Create a Class::Meta object for this class.
my $cm = Class::Meta->new( key => 'thingy' );
# Add an integer attribute.
$cm->add_attribute( name => 'my_hash',
type => 'hash' );
$cm->build;
}
=head1 DESCRIPTION
This module provides Perl data types for use with Class::Meta attributes.
Simply load it, then pass the name of one of its types to the
C<add_attribute()> method of a Class::Meta object. See
L<Class::Meta::Type|Class::Meta::Type> for more information on using and
creating data types.
The validation checks for Class::Meta::Types::Perl are provided by the
Class::Meta::Type's support for object type validation, since Perl data types
are understood by C<UNIVERSAL::isa()>.
The data types created by Class::Meta::Types::Perl are:
=over
=item scalar
A simple scalar value. This can be anything, and has no validation checks.
=item scalarref
A scalar reference. C<UNIVERSAL::isa()> must return 'SCALAR'.
=item array
=item arrayref
A array reference. C<UNIVERSAL::isa()> must return 'ARRAY'.
=item hash
=item hashref
A hash reference. C<UNIVERSAL::isa()> must return 'HASH'.
=item code
=item coderef
=item closure
A code reference. Also known as a closure. C<UNIVERSAL::isa()> must return
'CODE'.
=back
=cut
use strict;
use Class::Meta::Type;
our $VERSION = '0.66';
sub import {
my ($pkg, $builder) = @_;
$builder ||= 'default';
return if eval "Class::Meta::Type->new('array')";
Class::Meta::Type->add(
key => "scalar",
name => "Scalar",
desc => "Scalar",
builder => $builder,
);
Class::Meta::Type->add(
key => "scalarref",
name => "Scalar Reference",
desc => "Scalar reference",
builder => $builder,
check => 'SCALAR',
);
Class::Meta::Type->add(
key => "array",
name => "Array Reference",
desc => "Array reference",
alias => 'arrayref',
builder => $builder,
check => 'ARRAY',
);
Class::Meta::Type->add(
key => "hash",
name => "Hash Reference",
desc => "Hash reference",
alias => 'hashref',
builder => $builder,
check => 'HASH',
);
Class::Meta::Type->add(
key => "code",
name => "Code Reference",
desc => "Code reference",
alias => [qw(coderef closure)],
builder => $builder,
check => 'CODE',
);
}
1;
__END__
=head1 SUPPORT
This module is stored in an open L<GitHub
repository|http://github.com/theory/class-meta/>. Feel free to fork and
contribute!
Please file bug reports via L<GitHub
Issues|http://github.com/theory/class-meta/issues/> or by sending mail to
L<bug-Class-Meta@rt.cpan.org|mailto:bug-Class-Meta@rt.cpan.org>.
=head1 AUTHOR
David E. Wheeler <david@justatheory.com>
=head1 SEE ALSO
Other classes of interest within the Class::Meta distribution include:
=over 4
=item L<Class::Meta|Class::Meta>
This class contains most of the documentation you need to get started with
Class::Meta.
=item L<Class::Meta::Type|Class::Meta::Type>
This class manages the creation of data types.
=item L<Class::Meta::Attribute|Class::Meta::Attribute>
This class manages Class::Meta class attributes, all of which are based on
data types.
=back
Other data type modules:
=over 4
=item L<Class::Meta::Types::String|Class::Meta::Types::String>
=item L<Class::Meta::Types::Boolean|Class::Meta::Types::Boolean>
=item L<Class::Meta::Types::Numeric|Class::Meta::Types::Numeric>
=back
=head1 COPYRIGHT AND LICENSE
Copyright (c) 2002-2011, David E. Wheeler. Some Rights Reserved.
This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
=cut
|