blob: 9b569f57cd9c17621e16c062ded79724d18ca2a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
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;
|