blob: 38c8a6290a1e1fb56fb260b2e594fb2e305527ca (
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 Moose; 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;
|