File Coverage

blib/lib/Astro/App/Satpass2/FormatTime/DateTime/Strftime.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 15 15 100.0


line stmt bran cond sub pod time code
1             package Astro::App::Satpass2::FormatTime::DateTime::Strftime;
2              
3 20     20   361 use 5.008;
  20         77  
4              
5 20     20   109 use strict;
  20         42  
  20         402  
6 20     20   93 use warnings;
  20         51  
  20         572  
7              
8 20         144 use parent qw{
9             Astro::App::Satpass2::FormatTime::DateTime
10 20     20   114 };
  20         71  
11              
12             use Astro::App::Satpass2::FormatTime::Strftime;
13             use Astro::App::Satpass2::Utils qw{ @CARP_NOT };
14             use DateTime;
15             use DateTime::TimeZone;
16             use POSIX ();
17              
18             our $VERSION = '0.051';
19              
20             # So superclass can ducktype the object that does the real work.
21             use constant METHOD_USED => 'strftime';
22              
23             sub __format_datetime {
24             my ( $self, $date_time, $tplt ) = @_;
25             return $date_time->strftime( $self->__preprocess_strftime_format(
26             $date_time, $tplt ) );
27             }
28              
29             1;
30              
31             __END__