File Coverage

blib/lib/DR/R.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	11	12	91.6
condition	3	4	75.0
subroutine	7	7	100.0
pod	1	1	100.0
total	58	60	96.6

package DR::R;

use 5.010001;
use strict;
use utf8;
use warnings;

use Carp;
our $VERSION = '0.02';

require XSLoader;
XSLoader::load('DR::R', $VERSION);

sub select :method {
    my ($self, $type, $point_or_rect, %opts) = @_;

    my $offset = $opts{offset} || 0;
    my $limit = $opts{limit};
    my @result;

    my $type_ok = 0;
    $type //= '';
    for (@{ $self->iterator_types }) {
        if ($type eq $_) {
            $type_ok = 1;
            last;
        }
    }
    croak "Unknown iterator type: '$type'" unless $type_ok;
    unless ($self->is_point_or_rect($point_or_rect)) {
        croak "Invalid point or rect";
    }


    $self->foreach($type, $point_or_rect, sub {
        my ($o, $id, $toffset) = @_;

        return if $toffset < $offset;
        push @result => $o;
        return unless defined $limit;
        return if @result < $limit;
        return 0;
    });
    return \@result;
}

1;
__END__