Loading Build.PL +1 −0 Original line number Diff line number Diff line Loading @@ -20,6 +20,7 @@ Module::Build->new( 'Getopt::Long' => 0, 'List::Util' => 0, 'LWP::UserAgent' => 0, 'POSIX' => 0, 'XML::LibXML' => '1.70', }, script_files => 'bin/', Loading Changelog +1 −1 Original line number Diff line number Diff line git HEAD Travel::Status::DE::DeutscheBahn 0.02 - Wed Jul 06 2011 [db-ris] * Only display info when a train is late, not when on time / unknown Loading bin/db-ris +4 −4 Original line number Diff line number Diff line Loading @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; our $VERSION = '0.01'; our $VERSION = '0.02'; use Getopt::Long qw(:config no_ignore_case); use List::Util qw(first max); Loading Loading @@ -168,12 +168,12 @@ db-ris - Interface to the DeutscheBahn online departure monitor =head1 SYNOPSIS B<db-ris> [B<-d> I<date>] [B<-m> I<motlist>] [B<-t> I<time>] [B<-v> I<via>] I<station> B<db-ris> [B<-d> I<date>] [B<-L>] [B<-m> I<motlist>] [B<-t> I<time>] [B<-v> I<via>] I<station> =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading lib/Travel/Status/DE/DeutscheBahn.pm +2 −2 Original line number Diff line number Diff line Loading @@ -10,7 +10,7 @@ use POSIX qw(strftime); use Travel::Status::DE::DeutscheBahn::Result; use XML::LibXML; our $VERSION = '0.01'; our $VERSION = '0.02'; sub new { my ( $obj, %conf ) = @_; Loading Loading @@ -203,7 +203,7 @@ arrival/departure monitor =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading lib/Travel/Status/DE/DeutscheBahn/Result.pm +2 −2 Original line number Diff line number Diff line Loading @@ -6,7 +6,7 @@ use 5.010; use parent 'Class::Accessor'; our $VERSION = '0.01'; our $VERSION = '0.02'; Travel::Status::DE::DeutscheBahn::Result->mk_ro_accessors( qw(time train route_end route_raw platform info)); Loading Loading @@ -71,7 +71,7 @@ arrival/departure received by Travel::Status::DE::DeutscheBahn =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading Loading
Build.PL +1 −0 Original line number Diff line number Diff line Loading @@ -20,6 +20,7 @@ Module::Build->new( 'Getopt::Long' => 0, 'List::Util' => 0, 'LWP::UserAgent' => 0, 'POSIX' => 0, 'XML::LibXML' => '1.70', }, script_files => 'bin/', Loading
Changelog +1 −1 Original line number Diff line number Diff line git HEAD Travel::Status::DE::DeutscheBahn 0.02 - Wed Jul 06 2011 [db-ris] * Only display info when a train is late, not when on time / unknown Loading
bin/db-ris +4 −4 Original line number Diff line number Diff line Loading @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; our $VERSION = '0.01'; our $VERSION = '0.02'; use Getopt::Long qw(:config no_ignore_case); use List::Util qw(first max); Loading Loading @@ -168,12 +168,12 @@ db-ris - Interface to the DeutscheBahn online departure monitor =head1 SYNOPSIS B<db-ris> [B<-d> I<date>] [B<-m> I<motlist>] [B<-t> I<time>] [B<-v> I<via>] I<station> B<db-ris> [B<-d> I<date>] [B<-L>] [B<-m> I<motlist>] [B<-t> I<time>] [B<-v> I<via>] I<station> =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading
lib/Travel/Status/DE/DeutscheBahn.pm +2 −2 Original line number Diff line number Diff line Loading @@ -10,7 +10,7 @@ use POSIX qw(strftime); use Travel::Status::DE::DeutscheBahn::Result; use XML::LibXML; our $VERSION = '0.01'; our $VERSION = '0.02'; sub new { my ( $obj, %conf ) = @_; Loading Loading @@ -203,7 +203,7 @@ arrival/departure monitor =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading
lib/Travel/Status/DE/DeutscheBahn/Result.pm +2 −2 Original line number Diff line number Diff line Loading @@ -6,7 +6,7 @@ use 5.010; use parent 'Class::Accessor'; our $VERSION = '0.01'; our $VERSION = '0.02'; Travel::Status::DE::DeutscheBahn::Result->mk_ro_accessors( qw(time train route_end route_raw platform info)); Loading Loading @@ -71,7 +71,7 @@ arrival/departure received by Travel::Status::DE::DeutscheBahn =head1 VERSION version 0.01 version 0.02 =head1 DESCRIPTION Loading