blob: bfa8f73015ebe4e70776d63fb0d7c7ef13a72efe (
plain)
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
|
package Fripost::Schema::Type;
use 5.010_000;
use warnings;
use strict;
use Exporter;
our $VERSION = '0.01';
our @EXPORT = qw/MAILBOX DOMAIN ALIAS/;
our @ISA = qw(Exporter);
use constant {
MAILBOX => 0,
DOMAIN => 1,
ALIAS => 2
};
# Change the context of the object.
sub _set_type {
$_[0]->{_type} = $_[1];
return $_[0];
}
=head1 NAME
Fripost::Schema::Type - Context of Fripost::Schema objects.
=head1 AUTHOR
Guilhem Moulin C<< <guilhem at fripost.org> >>
=head1 COPYRIGHT
Copyright 2012 Guilhem Moulin, all rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as perl itself.
=cut
1; # End of Type.pm
__END__
|
