package View::Main;
use strict;
use warnings;

sub new {
    my ($class, $s)  = @_;
    my $self         = {};
    bless $self, $class;
    $self->{base}   = $s;
    return $self;
}

1;