package MyCache;
sub new {
- my ( $class, @p ) = @_;
- bless \@p, $class;
+ my ( $class, $p ) = @_;
+ bless { %$p }, $class;
}
sub get {}
sub set {}
ok( $registered, "registered a backend" );
-is_deeply( $registered, MyCache->new( param => "foo" ), "params sent correctly" );
+is_deeply( $registered, MyCache->new({ param => "foo" }), "params sent correctly" );