/[Frey]/trunk/lib/Frey/Types.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Types.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 931 by dpavlin, Mon Jan 5 22:10:59 2009 UTC revision 932 by dpavlin, Tue Jan 6 00:21:29 2009 UTC
# Line 17  coerce 'Uri' Line 17  coerce 'Uri'
17                  => via { URI->new( $_ ) }                  => via { URI->new( $_ ) }
18  ;  ;
19    
20  type 'Sponge'  subtype 'Sponge'
21            => as 'HashRef'
22          => where {          => where {
23                  defined $_->{rows} || die "no rows in sponge";                  defined $_->{rows} || die "no rows in sponge";
24                    ref( $_->{rows} ) eq 'ARRAY' || die "rows not ARRAY";
25                  defined $_->{NAME} || die "no NAME in sponge";                  defined $_->{NAME} || die "no NAME in sponge";
26          }          }
27  ;  ;
28    
29    use DBI ();
30    
31    subtype 'dsn'
32            => as 'Str'
33            => where {
34                    DBI->parse_dsn( $_ );
35            }
36    ;
37    
38  1;  1;
Legend:
Removed from v.931  
changed lines
  Added in v.932
  ViewVC Help
Powered by ViewVC 1.1.26