Skip to content

Commit

Permalink
Work out why we needed 'package'. Fixed it.
Browse files Browse the repository at this point in the history
  • Loading branch information
davorg committed Nov 18, 2024
1 parent d380b22 commit c116019
Showing 1 changed file with 3 additions and 5 deletions.
8 changes: 3 additions & 5 deletions lib/Amazon/Sites.pm
Original file line number Diff line number Diff line change
@@ -1,5 +1,3 @@
package Amazon::Sites;

=head1 NAME
Amazon::Sites - A class to represent Amazon sites
Expand Down Expand Up @@ -111,9 +109,9 @@ Returns a list of L<Amazon::Site> objects, sorted by the sort order.
my %sites;
my @cols = qw[code country tldn currency sort];

my $where = tell DATA;
my $where = tell main::DATA;

while (<DATA>) {
while (<main::DATA>) {
chomp;
my %site;
@site{@cols} = split /\t/;
Expand All @@ -126,7 +124,7 @@ Returns a list of L<Amazon::Site> objects, sorted by the sort order.
$sites{$site{code}} = Amazon::Site->new(%site);
}

seek DATA, $where, 0;
seek main::DATA, $where, 0;

return %sites;
}
Expand Down

0 comments on commit c116019

Please sign in to comment.