Select Code to Download

package MyRanger;
use strict;
use Carp;
...
        print "\tNext item is: $item\n";
    }
}

sub size {
    my $self = shift;
    scalar @{$self->{_range}};
}