wing_id only uses two thirds of the train_id. now wing detection actually works.

use Encode qw(encode decode);

use List::Util qw(first);

use LWP::UserAgent;

use Scalar::Util qw(weaken);

use Travel::Status::DE::IRIS::Result;

use XML::LibXML;

sub get_result_by_id {

	my ( $self, $id ) = @_;

	my $res = first { $_->{raw_id} eq $id } $self->results;

	my $res = first { $_->wing_id eq $id } @{ $self->{results} };

	return $res;

}

use DateTime::Format::Strptime;

use List::Compare;

use List::MoreUtils qw(none uniq firstval);

use Scalar::Util qw(weaken);

our $VERSION = '0.08';

	  line_no train_no_transfer old_train_id old_train_no platform raw_id

	  realtime_xml route_start route_end sched_arrival sched_departure

	  sched_platform sched_route_start sched_route_end start stop_no time

	  train_id train_no transfer type unknown_t unknown_o)

	  train_id train_no transfer type unknown_t unknown_o wing_id)

);

sub new {

	my ( $train_id, $start_ts, $stop_no ) = split( /.\K-/, $opt{raw_id} );

	$ref->{wing_id} = "${train_id}-${start_ts}";

	$train_id =~ s{^-}{};

	$ref->{start} = $strp->parse_datetime($start_ts);