blob: fc0b41f42b01ea5c33f624491170f204bca1a936 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package WebService::TFL::Bus::Response::URAVersion; use Moo; use namespace::autoclean; for my $field (qw(Version TimeStamp)) { has $field => ( is => 'ro', ); } sub new_from_array { my ($class,$return_set,$array) = @_; return $class->new({Version => $array->[1],TimeStamp => $array->[2]}); } 1;
|