sub new {
	my( $class, $context ) = @_;
	#Stash
	my $stash = $context->{'STASH'} or die( "No stash given" );

	#Bless object ref
	my $self = bless(
		{
			CONTEXT => $context,
			DBH => $stash->get('DBH')
		}, $class
	);

	return $self;
}

##</code><code>##

'STASH' => bless( {
    #...megabytes of data omitted for brevity
}, 'Template::Stash' );

##</code><code>##

my $stash = $context->stash; #Returns a TT2 undef error "Can't call method "stash" on an undefined value"