From 59c281597e93d9da9e70be7acc7f431194732b2e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 23 Dec 2013 19:04:19 +0100 Subject: Add some actual tests --- lib/Travel/Status/DE/URA.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'lib/Travel/Status/DE') 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 ); -- cgit v1.2.3