Loading Build.PL +1 −0 Original line number Diff line number Diff line Loading @@ -10,6 +10,7 @@ my $build = Module::Build->new( 'Test::Compile' => 0, 'Test::Pod' => 0, 'Test::Command' => 0, 'Test::Synopsis' => 0, }, module_name => 'WWW::Efa', license => 'unrestricted', Loading lib/WWW/Efa.pm +32 −0 Original line number Diff line number Diff line package WWW::Efa; =head1 NAME WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service =head1 SYNOPSIS use WWW::Efa; my $efa = WWW::Efa->new( from => ['Essen', 'HBf'], to => ['Muelheim', 'HBf'], ); $efa->submit(); $efa->parse(); for my $con ($efa->connections()) { for my $c (@{$con}) { printf( "%-5s ab %-30s %-20s %s\n%-5s an %-30s\n\n",, @{$c}->{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, @{$c}->{'arr_time', 'arr_stop'}, ); } } =head1 DESCRIPTION Foo bar =cut use strict; use warnings; use 5.010; Loading t/02-synopsis.t 0 → 100644 +18 −0 Original line number Diff line number Diff line #!/usr/bin/env perl use strict; use warnings; use Test::More; eval "use Test::Synopsis"; if ($@) { plan skip_all => 'Test::Synopsis required for testing'; } else { plan tests => 1; } for my $m (qw(lib/WWW/Efa.pm)) { synopsis_ok($m); } t/10-pod-coverage.t→t/10-pod.t +0 −0 File moved. View file Loading
Build.PL +1 −0 Original line number Diff line number Diff line Loading @@ -10,6 +10,7 @@ my $build = Module::Build->new( 'Test::Compile' => 0, 'Test::Pod' => 0, 'Test::Command' => 0, 'Test::Synopsis' => 0, }, module_name => 'WWW::Efa', license => 'unrestricted', Loading
lib/WWW/Efa.pm +32 −0 Original line number Diff line number Diff line package WWW::Efa; =head1 NAME WWW::Efa - inofficial interface to the efa.vrr.de German itinerary service =head1 SYNOPSIS use WWW::Efa; my $efa = WWW::Efa->new( from => ['Essen', 'HBf'], to => ['Muelheim', 'HBf'], ); $efa->submit(); $efa->parse(); for my $con ($efa->connections()) { for my $c (@{$con}) { printf( "%-5s ab %-30s %-20s %s\n%-5s an %-30s\n\n",, @{$c}->{'dep_time', 'dep_stop', 'train_line', 'train_dest'}, @{$c}->{'arr_time', 'arr_stop'}, ); } } =head1 DESCRIPTION Foo bar =cut use strict; use warnings; use 5.010; Loading
t/02-synopsis.t 0 → 100644 +18 −0 Original line number Diff line number Diff line #!/usr/bin/env perl use strict; use warnings; use Test::More; eval "use Test::Synopsis"; if ($@) { plan skip_all => 'Test::Synopsis required for testing'; } else { plan tests => 1; } for my $m (qw(lib/WWW/Efa.pm)) { synopsis_ok($m); }