The Perl Advent Calendar needs more articles for 2022. Submit your idea today!
package Rose::DB::Object::Std::Cached;

use strict;

use Rose::DB::Object::Std;
use Rose::DB::Object::Cached;
our @ISA = qw(Rose::DB::Object::Cached Rose::DB::Object::Std);

our $VERSION = '0.02';

*meta_class = \&Rose::DB::Object::Std::meta_class;



=head1 NAME

Rose::DB::Object::Std::Cached - Memory cached standardized object representation of a single row in a database table.


  package Category;

  use base 'Rose::DB::Object::Std::Cached';

    table => 'categories',

    columns =>
      id          => { type => 'int', primary_key => 1 },
      name        => { type => 'varchar', length => 255 },
      description => { type => 'text' },

    unique_key => 'name',


  $cat1 = Category->new(id   => 123,
                        name => 'Art');

  $cat1->save or die $category->error;

  $cat2 = Category->new(id => 123);

  # This will load from the memory cache, not the database
  $cat2->load or die $cat2->error; 

  # $cat2 is the same object as $cat1
  print "Yep, cached"  if($cat1 eq $cat2);

  # No, really, it's the same object
  print $cat2->name; # prints "Blah"



C<Rose::DB::Object::Std::Cached> is a subclass of both L<Rose::DB::Object::Std> and L<Rose::DB::Object::Cached>.  It simply combines the features of both classes.  See the L<Rose::DB::Object::Std> and L<Rose::DB::Object::Cached> documentation for more information.

=head1 AUTHOR

John C. Siracusa (

=head1 LICENSE

Copyright (c) 2010 by John C. Siracusa.  All rights reserved.  This program is
free software; you can redistribute it and/or modify it under the same terms
as Perl itself.