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

package Travel::Status::DE::URA::Stop;

use strict;
use warnings;
use 5.010;

use parent 'Class::Accessor';

our $VERSION = '1.02';

Travel::Status::DE::URA::Stop->mk_ro_accessors(qw(datetime name));

sub new {
	my ( $obj, %conf ) = @_;

	my $ref = \%conf;

	return bless( $ref, $obj );
}

sub date {
	my ($self) = @_;

	return $self->{datetime}->strftime('%d.%m.%Y');
}

sub time {
	my ($self) = @_;

	return $self->{datetime}->strftime('%H:%M:%S');
}

sub TO_JSON {
	my ($self) = @_;

	return { %{$self} };
}

1;

__END__