Select Code to Download

sub current_balance {
  my $self = shift;
...
  }
  return $self->{current_balance};
}

has current_balance => (is => 'rw', isa => 'Num');

package DebuggingDB;
use Moose;
...
{
  before $method => sub { warn "$method was called" };
}

package DebuggingDB;
use Moose::Role;
...
{
  before $method => sub { warn "$method was called" };
}

use Moose::Util qw/apply_all_roles/;
apply_all_roles('DB', 'DebuggingDB') if $ENV{DEBUG};

my $accounts  = DB->new(...);
my $marketing = DB->new(...);

use Moose::Util qw/apply_all_roles/;
apply_all_roles($marketing, 'DebuggingDB') if $ENV{DEBUG};