/usr/local/CPAN/Class-Cache/Class/Cache/Test/MeaningOfUniverse.pm

• package Class::Cache::Test::MeaningOfUniverse
  • new
  • divulge
• EOF

package Class::Cache::Test::MeaningOfUniverse;

use Carp qw(cluck);

sub new {
  my $class = shift;

  bless {data => \@_}, __PACKAGE__;
}

sub divulge { 42 }

1;