#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
# this tests that multiple type coercions on a given attribute get
# applied in the expected order.
{
package Date;
use Mouse;
# This is just a simple class representing a date - in real life we'd use DateTime.
has 'year' =>
(is => 'rw',
isa => 'Int');
has 'month' =>
(is => 'rw',
isa => 'Int');
has 'day' =>
(is => 'rw',
isa => 'Int');
sub from_epoch
{
my $class = shift;
my %d; @d{qw(year month day)} = (gmtime shift)[5,4,3];
$d{year} += 1900;
$d{month} += 1;
Date->new(%d);
}
sub from_string
{
my $class = shift;
my %d; @d{qw(year month day)} = split /\W/, shift;
Date->new(%d);
}
sub to_string
{
my $self = shift;
sprintf "%4d-%02d-%02d",
$self->year,
$self->month,
$self->day
}
package Event;
use Mouse;
use Mouse::Util::TypeConstraints;
# These coercions must be applied in the right order - since a
# number can be interpreted as a string, but not vice-versa, the
# Int coercion should be applied first to get a correct answer.
coerce 'Date'
=> from 'Int' # a timestamp
=> via { Date->from_epoch($_) }
=> from 'Str' # <YYYY>-<MM>-<DD>
=> via { Date->from_string($_) };
has date =>
(is => 'rw',
isa => 'Date',
coerce => 1);
}
my $date = Date->new(year => 2001, month => 1, day => 1);
my $str = $date->to_string;
is $str, "2001-01-01", "initial date is correct: $str";
my $event = Event->new(date => $date);
$str = $event->date->to_string;
is $str, "2001-01-01", "initial date field correct: $str";
# check the order is applied correctly when given an Int
my $timestamp = 1238778317; # Fri Apr 3 17:05:17 2009
$event->date($timestamp);
$str = $event->date->to_string;
is $str, "2009-04-03", "coerced timestamp $timestamp to date field $str correctly";