diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-07-13 09:39:29 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-07-13 09:39:29 +0200 |
commit | d463bbcd8475dd0261fb28efcc7b4b6d079a27a1 (patch) | |
tree | 1a4dfef1cbee74096d0d3cd4d5f74a03df6adefd | |
parent | d3c04239efd0209b6e9444355c4ae4879eba5daa (diff) |
Release v0.030.03
-rw-r--r-- | Changelog | 2 | ||||
-rwxr-xr-x | bin/db-ris | 6 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn.pm | 4 | ||||
-rw-r--r-- | lib/Travel/Status/DE/DeutscheBahn/Result.pm | 4 |
4 files changed, 8 insertions, 8 deletions
@@ -1,4 +1,4 @@ -git HEAD +Travel::Status::DE::DeutscheBahn 0.03 - Wed Jul 13 2011 * Clarify derl dependency (we actually need >= 5.10.1) @@ -3,7 +3,7 @@ use strict; use warnings; use 5.010; -our $VERSION = '0.02'; +our $VERSION = '0.03'; use Getopt::Long qw(:config no_ignore_case); use List::Util qw(first max); @@ -43,7 +43,7 @@ for my $type ( split( qr{,}, $types ) ) { my $status = Travel::Status::DE::DeutscheBahn->new( date => $date, mot => \%train_type, - station => shift, + station => shift || show_help(1), time => $time, ); @@ -171,7 +171,7 @@ B<db-ris> [B<-d> I<date>] [B<-L>] [B<-m> I<motlist>] [B<-t> I<time>] =head1 VERSION -version 0.02 +version 0.03 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm index ea869d0..8919dfc 100644 --- a/lib/Travel/Status/DE/DeutscheBahn.pm +++ b/lib/Travel/Status/DE/DeutscheBahn.pm @@ -10,7 +10,7 @@ use POSIX qw(strftime); use Travel::Status::DE::DeutscheBahn::Result; use XML::LibXML; -our $VERSION = '0.02'; +our $VERSION = '0.03'; sub new { my ( $obj, %conf ) = @_; @@ -205,7 +205,7 @@ arrival/departure monitor =head1 VERSION -version 0.02 +version 0.03 =head1 DESCRIPTION diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index d955328..969658d 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -6,7 +6,7 @@ use 5.010; use parent 'Class::Accessor'; -our $VERSION = '0.02'; +our $VERSION = '0.03'; Travel::Status::DE::DeutscheBahn::Result->mk_ro_accessors( qw(time train route_end route_raw platform info)); @@ -71,7 +71,7 @@ arrival/departure received by Travel::Status::DE::DeutscheBahn =head1 VERSION -version 0.02 +version 0.03 =head1 DESCRIPTION |