package WebService::TFL::Bus::Types;
use MooseX::Types -declare => [
    'DateTimeMillis'
];
use MooseX::Types::Moose 'Num';
use MooseX::Types::DateTime 'DateTime';

subtype DateTimeMillis, as DateTime;
coerce DateTimeMillis, from Num,
    via { 'DateTime'->from_epoch( epoch => $_ / 1000 ) };

1;