package Twitter::Objects; use strict; use warnings; use lib '..'; use Base::Data qw(data_file get_hash); my %accounts = get_hash( file => data_file('Twitter','account_totals.txt'), headings => [qw(screen_name followers friends updates)], ); sub new { my $self = \%accounts; bless($self); return $self; } 1;