summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-07-13 09:39:29 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-07-13 09:39:29 +0200
commitd463bbcd8475dd0261fb28efcc7b4b6d079a27a1 (patch)
tree1a4dfef1cbee74096d0d3cd4d5f74a03df6adefd
parentd3c04239efd0209b6e9444355c4ae4879eba5daa (diff)
Release v0.030.03
-rw-r--r--Changelog2
-rwxr-xr-xbin/db-ris6
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn.pm4
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm4
4 files changed, 8 insertions, 8 deletions
diff --git a/Changelog b/Changelog
index 55df95a..d26ffdf 100644
--- a/Changelog
+++ b/Changelog
@@ -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)
diff --git a/bin/db-ris b/bin/db-ris
index 234a912..f5633b0 100755
--- a/bin/db-ris
+++ b/bin/db-ris
@@ -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