use strict;
use warnings;

package My::Class::Proxy; # Drop-in replacement for 'Some Class'

# Proxies all public method calls to Some::Class in order to provide smart
# caching and memoization, e.g.- avoiding expensive DB queries when not required

use 5.020;
use Moose;

extends 'Some::Class';

use Moose::Util qw();

my $meta = Moose::Util::find_meta( 'Some::Class' );

my @nocache = qw( new meta DESTROY AUTOLOAD );

state $outputs = {};

for my $method ( $meta->get_method_list )
{
   # don't memo-ize blaclisted or private methods
   next if ( grep { $_ eq $method } @nocache or $method =~ /^_/ );

   around $method => sub
   {
      my ( $orig, $self, $refresh, @args ) = @_;

      $outputs = {} if !!$refresh;

      @args = map { $_ // '' } @args;

      my $call_key = join '', $orig, @args;

      return $outputs->{ $call_key } if defined $outputs->{ $call_key };

      $outputs->{ $call_key } = $self->$orig( @args );

      return $outputs->{ $call_key };
   };
}

# Moose-specific optimization
__PACKAGE__->meta->make_immutable();

1;