File Coverage

blib/lib/Travel/Status/DE/URA/Stop.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 3 4 75.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package Travel::Status::DE::URA::Stop;
2              
3 5     5   16 use strict;
  5         5  
  5         111  
4 5     5   14 use warnings;
  5         5  
  5         80  
5 5     5   63 use 5.010;
  5         10  
6              
7 5     5   13 use parent 'Class::Accessor';
  5         9  
  5         17  
8              
9             our $VERSION = '2.00';
10              
11             Travel::Status::DE::URA::Stop->mk_ro_accessors(qw(datetime name));
12              
13             sub new {
14 10595     10595 1 472676 my ( $obj, %conf ) = @_;
15              
16 10595         9571 my $ref = \%conf;
17              
18 10595         30651 return bless( $ref, $obj );
19             }
20              
21             sub date {
22 3     3 1 3 my ($self) = @_;
23              
24 3         11 return $self->{datetime}->strftime('%d.%m.%Y');
25             }
26              
27             sub time {
28 3     3 1 4 my ($self) = @_;
29              
30 3         15 return $self->{datetime}->strftime('%H:%M:%S');
31             }
32              
33             sub TO_JSON {
34 2     2 0 4 my ($self) = @_;
35              
36 2         4 return { %{$self} };
  2         21  
37             }
38              
39             1;
40              
41             __END__