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__