summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/DeutscheBahn.pm
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-06-23 16:16:41 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-06-23 16:16:41 +0200
commitd33460918190bef8259b19f5793d4fce0e7fe485 (patch)
treee82fd20255ee555a6c2e7ccbb87e22e7eac5180e /lib/Travel/Status/DE/DeutscheBahn.pm
parent50ac58e8ebae424bc66c593afac14954c1475e19 (diff)
Documentation
Diffstat (limited to 'lib/Travel/Status/DE/DeutscheBahn.pm')
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn.pm77
1 files changed, 77 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 499f540..748184c 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -53,6 +53,21 @@ sub new {
return bless( $ref, $obj );
}
+sub new_from_html {
+ my ( $obj, $html ) = @_;
+
+ my $ref = { html => $html, };
+
+ $ref->{tree} = XML::LibXML->load_html(
+ string => $ref->{html},
+ recover => 2,
+ suppress_errors => 1,
+ suppress_warnings => 1,
+ );
+
+ return bless( $ref, $obj );
+}
+
sub departures {
my ($self) = @_;
@@ -137,30 +152,92 @@ departure monitor
=head1 SYNOPSIS
+ use Travel::Status::DE::DeutscheBahn;
+
+ my $status = Travel::Status::DE::DeutscheBahn->new(
+ station => 'Essen Hbf',
+ );
+
+ for my $departure ($status->departures) {
+ printf(
+ "At %s: %s to %s from platform %s\n",
+ $departure->time,
+ $departure->train,
+ $departure->destination,
+ $departure->platform,
+ );
+ }
+
=head1 VERSION
version 0.0
=head1 DESCRIPTION
+Travel::Status::DE::DeutscheBahn is an interface to the DeutscheBahn
+arrival/departure monitor available at
+L<http://mobile.bahn.de/bin/mobil/bhftafel.exe/dn?rt=1>.
+
+It takes a station name and (optional) date and time and reports all
+departures at that station starting at the specified point in time (now if
+unspecified). By default, it will list the next 20 departures.
+
=head1 METHODS
=over
+=item my $status = Travel::Status::DE::DeutscheBahn->new(I<%opts>)
+
+Returns a new Travel::Status::DE::DeutscheBahn element. Supported I<opts> are:
+
+=over
+
+=item B<station> => I<station>
+
+The train station to report for, e.g. "Essen HBf". Mandatory.
+
+=item B<date> => I<dd>.I<mm>.I<yyyy>
+
+Date to report for. Defaults to the current day.
+
+=item B<time> => I<hh>:I<mm>
+
+Time to report for. Defaults to now.
+
+=back
+
+=item $status->departures()
+
+Returns a list of departures (20 by default). Each list element is a
+Travel::Status::DE::DeutscheBahn::Departure(3pm) object.
+
=back
=head1 DIAGNOSTICS
+None.
+
=head1 DEPENDENCIES
=over
+=item * Class::Accessor(3pm)
+
+=item * LWP::UserAgent(3pm)
+
+=item * XML::LibXML(3pm)
+
=back
=head1 BUGS AND LIMITATIONS
+The web interface also offers arrival monitoring. This is not yet supported
+in this module.
+
=head1 SEE ALSO
+mris(1), Travel::Status::DE::DeutscheBahn::Departure(3pm).
+
=head1 AUTHOR
Copyright (C) 2011 by Daniel Friesel E<lt>derf@finalrewind.orgE<gt>