File Coverage

blib/lib/Time/Str.pm

Criterion	Covered	Total	%
statement	37	39	94.8
branch	3	6	50.0
condition			n/a
subroutine	11	11	100.0
pod			n/a
total	51	56	91.0

package Time::Str;
use strict;
use warnings;
use v5.10.1;

use Carp     qw[];
use Exporter qw[import];

BEGIN {
  our $VERSION     = '0.91';
  our @EXPORT_OK   = qw[ str2date
                         str2time
                         time2str ];
  our %EXPORT_TAGS = ( all => \@EXPORT_OK );
  our @CARP_NOT    = qw[Time::Str::PP];

  my $xs_loaded = 0;
  eval {
    require XSLoader; XSLoader::load(__PACKAGE__, $VERSION);
    $xs_loaded = 1;
  } unless $ENV{TIME_STR_PP};

  unless ($xs_loaded) {
    require Time::Str::PP;
    Time::Str::PP->import(@EXPORT_OK);
  }

  require constant;
  constant->import(IMPLEMENTATION => $xs_loaded ? 'XS' : 'PP');
}

use constant MIN_TIME => -62135596800; # 0001-01-01T00:00:00Z
use constant MAX_TIME => 253402300799; # 9999-12-31T23:59:59Z

use constant NON_CONSTRUCTOR_KEYS => qw[ tz_abbrev
                                         tz_annotation
                                         tz_offset
                                         tz_utc ];


# XS call_pv("Carp::croak") inherits the caller's cop, causing
# Carp to see the wrong package. These wrappers give Carp the
# correct package for @CARP_NOT resolution.
{
  package Time::Str;
  sub _croak {
    &Carp::croak;
  }
}

{
  package
  Time::Str::Token; # hide from PAUSE/indexers
  sub _croak {
    &Carp::croak;
  }
}

1;