package EOYStats;

use strict;
use warnings;
use Data::Dumper;

sub new {
    my $class = shift;
    my $this = bless {}, $class;

    $this->{ACT} = shift;

    %{ $this->{ACTIVITIES} } =
        (
         'Sale' =>
         {
         'func'    => \&total_sold,
         'datefield' => "date_sold",

         },
         'Purchae' =>
         {
         'func'    => \&total_bought,
         'datefield' => "date_bought",
         },
        );

    return $this;
}

sub get_stats
{
    my $this = shift;
    my $arg = shift;

    $this->{ACTIVITIES}->{$this->{ACT}}->{'func'}->($arg);
}

sub total_sold
{
    my $this = shift;
    my $arg = shift;

   $this->dosomething();
}

sub total_bought
{
    my $this = shift;
    my $arg = shift;

# Do stuff....
}

sub dosomething
{
        my $this = shift;

        print "This is test...\n";
}



return 1;