package Feed::Iterator; sub new { my ($class, $feed) = @_; my $self = _init($feed); bless $self, $class; } sub gimme { # . . . } package Feed; sub iter { my $self = shift; Feed::Iterator->new($self) }