blob: e67fe322cb129ae72c643d91cac5f00b34c347be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
package WebService::TFL::Bus::Types; use Type::Library -base, -declare => 'DateTimeMillis'; use Types::Standard -all; use Type::Utils -all; use Types::DateTime 'DateTimeT'; use namespace::autoclean; declare DateTimeMillis, as DateTimeT; coerce DateTimeMillis, from Num, via { require DateTime; DateTime->from_epoch( epoch => $_ / 1000 ) }; 1;
|