diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2011-09-11 20:25:17 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2011-09-11 20:25:17 +0200 |
| commit | 0640f90da6e16a23fc87dd4acb32d1d3604b1267 (patch) | |
| tree | f60861c94016a813c86b693443fa543a278bd575 /lib/Travel/Status/DE | |
| parent | 50a12ddf7f67f7a7e383fe0e1962e41c24afce02 (diff) | |
Add actual tests
Diffstat (limited to 'lib/Travel/Status/DE')
| -rw-r--r-- | lib/Travel/Status/DE/VRR.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/VRR.pm b/lib/Travel/Status/DE/VRR.pm index e16136f..47b3b76 100644 --- a/lib/Travel/Status/DE/VRR.pm +++ b/lib/Travel/Status/DE/VRR.pm @@ -98,6 +98,21 @@ sub new { return $self; } +sub new_from_html { + my ( $class, %opt ) = @_; + + my $self = { html => $opt{html}, }; + + $self->{tree} = XML::LibXML->load_html( + string => $self->{html}, + recover => 2, + suppress_errors => 1, + suppress_warnings => 1, + ); + + return bless( $self, $class ); +} + sub errstr { my ($self) = @_; |