File Coverage

blib/lib/Sort/Key/DateTime.pm

Criterion	Covered	Total	%
statement	35	40	87.5
branch	1	4	25.0
condition			n/a
subroutine	12	13	92.3
pod	1	2	50.0
total	49	59	83.0

package Sort::Key::DateTime;

our $VERSION = '0.07';

use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(dtkeysort
                    dtkeysort_inplace
                    rdtkeysort
                    rdtkeysort_inplac
                    dtsort
                    dtsort_inplace
                    rdtsort
                    rdtsort_inplace
                    mkkey_datetime
                    dtcmpstr);

use Sort::Key qw(keysort_inplace);
use DateTime;
use Carp;

sub dtcmpstr ($) {
    my $dt=shift;
    my $key = eval { sprintf("%010d%06d%010d", $dt->utc_rd_values) };
    $@ and croak "sorting key '$dt' generated for element '$_' is not a valid DateTime object ($@)";
    $key;
}

sub mkkey_datetime {
    my $dt = @_ ? shift : $_;
    sprintf("%010d%06d%010d", $dt->utc_rd_values);
}

use Sort::Key::Register dt => \&mkkey_datetime, 'string';
use Sort::Key::Register datetime => \&mkkey_datetime, 'string';

use Sort::Key::Maker dtkeysort => 'dt';
use Sort::Key::Maker rdtkeysort => '-dt';
use Sort::Key::Maker dtsort => \&mkkey_datetime, 'str';
use Sort::Key::Maker rdtsort => \&mkkey_datetime, '-str';



1;
__END__