File Coverage

blib/lib/WWW/Google/C2DM/Constants.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package WWW::Google::C2DM::Constants;

use strict;
use warnings;
use parent 'Exporter';

my @error_code = qw(
    QuotaExceeded
    DeviceQuotaExceeded
    MissingRegistration
    InvalidRegistration
    MismatchSenderId
    NotRegistered
    MessageTooBig
    MissingCollapseKey
);

our @EXPORT      = (@error_code);
our @EXPORT_OK   = ();
our %EXPORT_TAGS = (
    all        => [@EXPORT, @EXPORT_OK],
    error_code => \@error_code,
);

use constant {
    # error code
    QuotaExceeded        => 'QuotaExceeded',
    DeviceQuotaExceeded  => 'DeviceQuotaExceeded',
    MissingRegistration  => 'MissingRegistration',
    InvalidRegistration  => 'InvalidRegistration',
    MismatchSenderId     => 'MismatchSenderId',
    NotRegistered        => 'NotRegistered',
    MessageTooBig        => 'MessageTooBig',
    MissingCollapseKey   => 'MissingCollapseKey',
};

1;
__END__