summaryrefslogtreecommitdiff
path: root/lib/WebService/TFL/TubeStatus/Response
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WebService/TFL/TubeStatus/Response')
-rw-r--r--lib/WebService/TFL/TubeStatus/Response/Line.pm10
-rw-r--r--lib/WebService/TFL/TubeStatus/Response/LineStatus.pm7
2 files changed, 10 insertions, 7 deletions
diff --git a/lib/WebService/TFL/TubeStatus/Response/Line.pm b/lib/WebService/TFL/TubeStatus/Response/Line.pm
index 11d3538..9779443 100644
--- a/lib/WebService/TFL/TubeStatus/Response/Line.pm
+++ b/lib/WebService/TFL/TubeStatus/Response/Line.pm
@@ -1,23 +1,25 @@
package WebService::TFL::TubeStatus::Response::Line;
-use Moose;
+use Moo;
+use Types::Standard -all;
+use WebService::TFL::TubeStatus::Types -all;
use WebService::TFL::TubeStatus::Response::LineStatus;
use namespace::autoclean;
has id => (
is => 'ro',
- isa => 'Num',
+ isa => Num,
required => 1,
);
has name => (
is => 'ro',
- isa => 'Str',
+ isa => Str,
required => 1,
);
has status => (
is => 'ro',
- isa => 'WebService::TFL::TubeStatus::Response::LineStatus',
+ isa => LineStatusT,
required => 1,
);
diff --git a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
index e223bb6..6caa7d6 100644
--- a/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
+++ b/lib/WebService/TFL/TubeStatus/Response/LineStatus.pm
@@ -1,16 +1,17 @@
package WebService::TFL::TubeStatus::Response::LineStatus;
-use Moose;
+use Moo;
+use Types::Standard -all;
use namespace::autoclean;
has is_active => (
is => 'ro',
- isa => 'Bool',
+ isa => Bool,
required => 1,
);
has [qw(code class description details)] => (
is => 'ro',
- isa => 'Str',
+ isa => Str,
required => 1,
);