File Coverage

blib/lib/Imager/LineTrace.pm

Criterion	Covered	Total	%
statement	52	54	96.3
branch	10	12	83.3
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	69	74	93.2

package Imager::LineTrace;
use 5.008001;
use strict;
use warnings;

use base qw(Imager);

use Imager::LineTrace::Algorithm;
use Imager::LineTrace::Figure;

our $VERSION = "0.06";

sub line_trace {
    my $self = shift;
    my %args = @_;

    my $channels = [ 0, 1, 2 ];
    if ( exists $args{channels} ) {
        $channels = $args{channels};
    }

    my $number_of_channels = scalar( @{$channels} );
    my $ymax = $self->getheight() - 1;
    my @pixels = map {
        my $iy = $_;

        my $ary_ref = $self->getsamples( y => $iy, channels => $channels );
        my @wk = ();
        if ( @{$channels} == 3 ) {
            my @tmp = unpack( "C*", $ary_ref );
            while ( @tmp ) {
                my $val = shift @tmp;
                $val = ($val << 8) + shift @tmp;
                $val = ($val << 8) + shift @tmp;
                push @wk, $val;
            }
        }
        elsif ( @{$channels} == 2 ) {
            @wk = unpack( "S*", $ary_ref );
        }
        else {
            @wk = unpack( "C*", $ary_ref );
        }

        \@wk;
    } 0..$ymax;

    if ( not exists $args{ignore} ) {
        if ( @{$channels} == 3 ) {
            $args{ignore} = 0xFFFFFF;
        }
        elsif ( @{$channels} == 2 ) {
            $args{ignore} = 0xFFFF;
        }
        else {
            $args{ignore} = 0xFF;
        }
    }

    my $results = Imager::LineTrace::Algorithm::search( \@pixels, \%args );
    my @figures = map {
        Imager::LineTrace::Figure->new( $_ );
    } @{$results};

    return \@figures;
}

1;
__END__