diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2013-12-23 19:04:19 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2013-12-23 19:04:19 +0100 |
| commit | 59c281597e93d9da9e70be7acc7f431194732b2e (patch) | |
| tree | a3db0dcf46efb30c5e8aeb82594192394d73fd87 /lib/Travel/Status | |
| parent | 4f5953eaf8b9da117e3d947eb55c7ace1ea3c3d8 (diff) | |
Add some actual tests
Diffstat (limited to 'lib/Travel/Status')
| -rw-r--r-- | lib/Travel/Status/DE/URA.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 5ca1bee..c525ffd 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -63,7 +63,16 @@ sub new { sub new_from_raw { my ( $class, %opt ) = @_; - my $self = { raw_str => $opt{raw_str}, }; + my $self = { + ura_base => $opt{ura_base}, + ura_version => $opt{ura_version}, + full_routes => $opt{full_routes} // 0, + fuzzy => $opt{fuzzy} // 1, + hide_past => $opt{hide_past} // 1, + stop => $opt{stop}, + via => $opt{via}, + raw_str => $opt{raw_str} + }; bless( $self, $class ); |