sub accounts {
my ($class) = @_;
my @accounts = qw(
Lady_Aleena
LadyAleena_ABC
LadyAleena_CBS
LadyAleena_FOX
LadyAleena_NBC
LadyAleena_SyFy
LadyAleena_TNT
LadyAleena_USA
LadyAleena_TV
LadyAleena_eros
LadyAleena_home
LadyAleena_test
);
return bless \@accounts, $class;
}
####
$VAR1 = bless( [
'Lady_Aleena',
'LadyAleena_ABC',
'LadyAleena_CBS',
'LadyAleena_FOX',
'LadyAleena_NBC',
'LadyAleena_SyFy',
'LadyAleena_TNT',
'LadyAleena_USA',
'LadyAleena_TV',
'LadyAleena_eros',
'LadyAleena_home',
'LadyAleena_test'
], 'Twitter::Objects' );
##
##
use strict;
use warnings;
use lib '../files/perl/lib';
use Twitter::Objects;
my $accounts = Twitter::Objects->accounts;
for my $account (@{$accounts}) {
print $account;
# and other code I want to run through this loop.
}