-{
+{
+
package Fake::DateTime;
use Moose;
-
- has 'string_repr' => (is => 'ro');
-
+
+ has 'string_repr' => ( is => 'ro' );
+
package Mortgage;
use Moose;
use Moose::Util::TypeConstraints;
- coerce 'Fake::DateTime'
- => from 'Str'
- => via { Fake::DateTime->new(string_repr => $_) };
+ coerce 'Fake::DateTime' => from 'Str' =>
+ via { Fake::DateTime->new( string_repr => $_ ) };
has 'closing_date' => (
- is => 'rw',
- isa => 'Fake::DateTime',
- coerce => 1,
- trigger => sub {
- my ( $self, $val ) = @_;
- ::pass('... trigger is being called');
- ::isa_ok($self->closing_date, 'Fake::DateTime');
- ::isa_ok($val, 'Fake::DateTime');
- }
+ is => 'rw',
+ isa => 'Fake::DateTime',
+ coerce => 1,
+ trigger => sub {
+ my ( $self, $val ) = @_;
+ ::pass('... trigger is being called');
+ ::isa_ok( $self->closing_date, 'Fake::DateTime' );
+ ::isa_ok( $val, 'Fake::DateTime' );
+ }
);
}
{
my $mtg = Mortgage->new( closing_date => 'yesterday' );
- isa_ok($mtg, 'Mortgage');
+ isa_ok( $mtg, 'Mortgage' );
# check that coercion worked
- isa_ok($mtg->closing_date, 'Fake::DateTime');
+ isa_ok( $mtg->closing_date, 'Fake::DateTime' );
}
Mortgage->meta->make_immutable;
-ok(Mortgage->meta->is_immutable, '... Mortgage is now immutable');
+ok( Mortgage->meta->is_immutable, '... Mortgage is now immutable' );
{
my $mtg = Mortgage->new( closing_date => 'yesterday' );
- isa_ok($mtg, 'Mortgage');
+ isa_ok( $mtg, 'Mortgage' );
# check that coercion worked
- isa_ok($mtg->closing_date, 'Fake::DateTime');
+ isa_ok( $mtg->closing_date, 'Fake::DateTime' );
}