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'};
}