package Context::Set::Storage::BlackHole;
use Moose;
=head1 NAME
Context::Set::Storage::BlackHole - A Storage that doesnt do anything.
=cut
extends qw/Context::Set::Storage/;
=head2 populate_context
See super class L<Context::Set::Storage>
=cut
sub populate_context{}
=head2 set_context_property
See super class L<Context::Set::Storage>
=cut
sub set_context_property{
my ($self, $context, $prop , $v , $after) = @_;
return &{$after}();
}
=head2 delete_context_property
See superclass L<Context::Set::Storage>
=cut
sub delete_context_property{
my ($self, $context, $prop , $after) = @_;
return &{$after}();
}
__PACKAGE__->meta->make_immutable();
1;