1 files changed, 12 insertions, 0 deletions
diff --git a/lib/WebService/TFL/Bus/Types.pm b/lib/WebService/TFL/Bus/Types.pm
new file mode 100644
index 0000000..9b569f5
--- /dev/null
+++ b/lib/WebService/TFL/Bus/Types.pm
@@ -0,0 +1,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;