diff options
Diffstat (limited to 'lib/Travel/Status/DE/DeutscheBahn/Departure.pm')
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Departure.pm | 69 |
1 files changed, 69 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn/Departure.pm b/lib/Travel/Status/DE/DeutscheBahn/Departure.pm new file mode 100644 index 0000000..9ca1aa9 --- /dev/null +++ b/lib/Travel/Status/DE/DeutscheBahn/Departure.pm @@ -0,0 +1,69 @@ +package Travel::Status::DE::DeutscheBahn::Departure; + +use strict; +use warnings; +use 5.010; + +use parent 'Class::Accessor'; + +our $VERSION = '0.0'; + +Travel::Status::DE::DeutscheBahn::Departure->mk_ro_accessors( + qw(time train destination platform info)); + +sub new { + my ( $obj, %conf ) = @_; + + my $ref = \%conf; + + return bless( $ref, $obj ); +} + +sub route { + my ($self) = @_; + + return @{ $self->{route} }; +} + +1; + +__END__ + +=head1 NAME + +Travel::Status::DE::DeutscheBahn::Departure - Information about a single +departure received by Travel::Status::DE::DeutscheBahn + +=head1 SYNOPSIS + +=head1 VERSION + +version + +=head1 DESCRIPTION + +=head1 METHODS + +=over + +=back + +=head1 DIAGNOSTICS + +=head1 DEPENDENCIES + +=over + +=back + +=head1 BUGS AND LIMITATIONS + +=head1 SEE ALSO + +=head1 AUTHOR + +Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt> + +=head1 LICENSE + +This module is licensed under the same terms as Perl itself. |