Codebase list libparams-validate-perl / daf7fa1
Tidy all code with the latest Perl::Tidy Dave Rolsky 1 year, 6 months ago
3 changed file(s) with 6 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all
+1
-1
lib/Params/Validate.pm less more
5151 validate_with
5252 validation_options
5353 set_options
54 ),
54 ),
5555 ],
5656 );
5757
+2
-2
t/21-can.t less more
2424
2525 {
2626 my $object = bless {}, 'ClassCan';
27 my @p = ( foo => $object );
27 my @p = ( foo => $object );
2828
2929 eval { validate( @p, { foo => { can => 'cancan' } }, ); };
3030
4949
5050 {
5151 my $object = bless {}, 'SubClass';
52 my @p = ( foo => $object );
52 my @p = ( foo => $object );
5353
5454 eval { validate( @p, { foo => { can => 'cancan' } }, ); };
5555
+3
-3
t/28-readonly-return.t less more
11 use warnings;
22 use Test::More;
33
4 use Devel::Peek qw( SvREFCNT );
5 use File::Temp qw( tempfile );
4 use Devel::Peek qw( SvREFCNT );
5 use File::Temp qw( tempfile );
66 use Params::Validate qw( validate SCALAR HANDLE );
77
88 {
1616
1717 eval { $ref->{foo} = 2 };
1818 ok( !$@, 'returned hashref values are not read only' );
19 is( $ref->{foo}, 2, 'double check that setting value worked' );
19 is( $ref->{foo}, 2, 'double check that setting value worked' );
2020 is( $fh, $ref->{bar}, 'filehandle is not copied during validation' );
2121 }
2222