diff options
Diffstat (limited to 'lib/Travel')
| -rw-r--r-- | lib/Travel/Status/DE/URA.pm | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 1a11d26..eb1c7de 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -32,13 +32,14 @@ sub new { my $self = { datetime => $opt{datetime} // DateTime->now( time_zone => 'Europe/Berlin' ), - ura_base => $opt{ura_base}, - ura_version => $opt{ura_version}, - full_routes => $opt{calculate_routes} // 0, - hide_past => $opt{hide_past} // 1, - stop => $opt{stop}, - via => $opt{via}, - post => { + developer_mode => $opt{developer_mode}, + ura_base => $opt{ura_base}, + ura_version => $opt{ura_version}, + full_routes => $opt{calculate_routes} // 0, + hide_past => $opt{hide_past} // 1, + stop => $opt{stop}, + via => $opt{via}, + post => { ReturnList => 'lineid,linename,directionid,destinationtext,vehicleid,' . 'tripid,estimatedtime,stopid,stoppointname' @@ -66,6 +67,10 @@ sub new { $self->{raw_str} = $response->decoded_content; + if ( $self->{developer_mode} ) { + say $self->{raw_str}; + } + # Fix encoding in case we're running through test files if ( substr( $self->{ura_instant_url}, 0, 5 ) eq 'file:' ) { $self->{raw_str} = encode( 'UTF-8', $self->{raw_str} ); |