package WebService::TFL::Bus::Response::BaseVersion; use Moo; use namespace::autoclean; has Version => ( is => 'ro', ); sub new_from_array { my ($class,$return_set,$array) = @_; return $class->new({Version => $array->[1]}); } 1;