File Coverage

blib/lib/WWW/Google/ClientLogin/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::ClientLogin::Constants;

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

my @error_code = qw(
    BadAuthentication
    NotVerified
    TermsNotAgreed
    CaptchaRequired
    Unknown
    AccountDeleted
    AccountDisabled
    ServiceDisabled
    ServiceUnavailable
);

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

use constant {
    # error code
     BadAuthentication  => 'BadAuthentication',
     NotVerified        => 'NotVerified',
     TermsNotAgreed     => 'TermsNotAgreed',
     CaptchaRequired    => 'CaptchaRequired',
     Unknown            => 'Unknown',
     AccountDeleted     => 'AccountDeleted',
     AccountDisabled    => 'AccountDisabled',
     ServiceDisabled    => 'ServiceDisabled',
     ServiceUnavailable => 'ServiceUnavailable',
};

1;
__END__