use strict;
use warnings;
+our $VERSION = "0.02";
+
use Scalar::Util ();
use Catalyst::Utils ();
use Carp ();
my %config = %$config;
if ( my $class = delete $config{class} ) {
- $app->setup_cache_backend_by_class( $name, $class, %config );
+ $app->setup_cache_backend_by_class( $name, $class, \%config );
} elsif ( my $store = delete $config->{store} || $app->default_cache_store ) {
my $method = lc("setup_${store}_cache_backend");
"Please consult the Catalyst::Plugin::Cache documentation on how to configure hetrogeneous stores."
unless $app->can($method);
- $app->$method( $name, %config );
+ $app->$method( $name, \%config );
} else {
$app->log->warn("Couldn't setup the cache backend named '$name'");
}
L<Catalyst::Plugin::Cache::ControllerNamespacing> - wrap backend objects in a
name mangler so that every controller gets its own keyspace.
-=cut
+=head1 AUTHOR
+
+Yuval Kogman, C<nothingmuch@woobling.org>
+
+=head1 COPYRIGHT & LICENSE
+Copyright (c) Yuval Kogman, 2006. All rights reserved.
+
+This library is free software, you can redistribute it and/or modify it under
+the same terms as Perl itself, as well as under the terms of the MIT license.
+
+=cut