my $query = $dbh->prepare("SELECT * FROM Blog ORDER BY created DESC");
$query->execute;
my $test;
while( my $bg = $query->fetchrow_hashref ) {
    my $blog = Bod::Blog->new($bg) or die "Blog not defined";
    $test = $blog->heading;   # line 152
    push @blogs, $blog->hashref;
}

##</code><code>##

package Bod::Blog;

use strict;
use warnings;

sub new {
    my ($class, $blog, $vars);
	
    $vars->{'heading_class'}    ||= 'blogHead';
    $vars->{'subheading_class'} ||= 'blogSubHead';
    $vars->{'body_class'}       ||= 'blogBody';
    $vars->{'base_path'}        ||= '/blog/';
    $vars->{'image_path'}       ||= '/images/blog/';
	
    my $self = bless {
        'blog'  => $blog,
        'vars'  => $vars,
    }, $class;
    return $self;
}

sub heading {
    my $self = shift;
    return $self->{'heading'};
}