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;