5 |
|
|
6 |
subtype 'Uri' |
subtype 'Uri' |
7 |
=> as 'Object' |
=> as 'Object' |
8 |
=> where { $_->isa('URI') }; |
=> where { $_->isa('URI') } |
9 |
|
; |
10 |
|
|
11 |
coerce 'Uri' |
coerce 'Uri' |
12 |
=> from 'Object' |
=> from 'Object' |
14 |
? $_ |
? $_ |
15 |
: Params::Coerce::coerce( 'URI', $_ ) } |
: Params::Coerce::coerce( 'URI', $_ ) } |
16 |
=> from 'Str' |
=> from 'Str' |
17 |
=> via { URI->new( $_ ) }; |
=> via { URI->new( $_ ) } |
18 |
|
; |
19 |
|
|
20 |
|
type 'Sponge' |
21 |
|
=> where { |
22 |
|
defined $_->{rows} || die "no rows in sponge"; |
23 |
|
defined $_->{NAME} || die "no NAME in sponge"; |
24 |
|
} |
25 |
|
; |
26 |
|
|
27 |
1; |
1; |