ERNESTO / Frost-0.66-TRIAL / lib / Frost / Cemetery.pm 

            

              
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

              
package Frost::Cemetery;
#       LIBS
#
use Moose;
extends 'Frost::Burial';
use Frost::Util;
#       CLASS VARS
#
our $VERSION    = 0.62;
our $AUTHORITY  = 'cpan:ERNESTO';
#       CLASS METHODS
#
sub suffix { '.cem' }
#       PUBLIC ATTRIBUTES
#
#       PRIVATE ATTRIBUTES
#
#       CONSTRUCTORS
#
sub _build_numeric
{
        my $type                = find_type_constraint_manuel $_[0]->classname, 'id';                                #       id !!!
        ( ( defined $type ) and $type->is_a_type_of ( 'Num' ) ? true : false );              #       return 'real' boolean
}
sub _build_unique       { true; }                                                                                                                                       #       always
#       DESTRUCTORS
#
#       PUBLIC METHODS
#
#       PRIVATE METHODS
#
#       CALLBACKS
#
#       IMMUTABLE
#
no Moose;
__PACKAGE__->meta->make_immutable ( debug => 0 );
1;
__END__
=head1 NAME
Frost::Cemetery - Welcome to Necropolis
=head1 ABSTRACT
No documentation yet...
=head1 DESCRIPTION
No user maintainable parts inside ;-)
=for comment CLASS VARS
=head1 CLASS METHODS
=head2 Frost::Cemetery->suffix()
Returns '.cem'
=for comment PUBLIC ATTRIBUTES
=for comment PRIVATE ATTRIBUTES
=head1 CONSTRUCTORS
=head2 Frost::Cemetery->new ( %params )
=head2 _build_numeric
=head2 _build_unique
=for comment DESTRUCTORS
=for comment PUBLIC METHODS
=for comment PRIVATE METHODS
=for comment CALLBACKS
=for comment IMMUTABLE
=head1 GETTING HELP
I'm reading the Moose mailing list frequently, so please ask your
questions there.
The mailing list is L<moose@perl.org>. You must be subscribed to send
a message. To subscribe, send an empty message to
L<moose-subscribe@perl.org>
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
exception.
Please report any bugs to me or the mailing list.
=head1 AUTHOR
Ernesto L<ernesto@dienstleistung-kultur.de>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2010 by Dienstleistung Kultur Ltd. & Co. KG
L<http://dienstleistung-kultur.de/frost/>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut