1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
## no critic (Moose::RequireCleanNamespace, Modules::ProhibitMultiplePackages, Moose::RequireMakeImmutable)
use strict;
use warnings;
use Test::More;
{
package Foo;
use Moose;
use MooseX::Params::Validate;
use overload (
qw{""} => 'to_string',
);
has 'id' => (
is => 'ro',
isa => 'Str',
default => '1.10.100',
);
sub to_string {
my ( $self, %args ) = validated_hash(
\@_,
padded => {
isa => 'Bool',
optional => 1,
default => 0,
},
);
# 1.10.100 => 0001.0010.0100
my $id
= $args{padded}
? join(
'.',
map { sprintf( '%04d', $_ ) } split( /\./, $self->id )
)
: $self->id;
return $id;
}
}
isa_ok( my $foo = Foo->new(), 'Foo', 'new' );
is( $foo->id, '1.10.100', 'id' );
is( $foo->to_string, '1.10.100', 'to_string' );
is(
$foo->to_string( padded => 1 ), '0001.0010.0100',
'to_string( padded => 1 )'
);
done_testing();
|
