File Coverage

blib/lib/Video/FindEvent.pm

Criterion	Covered	Total	%
statement	12	40	30.0
branch	0	10	0.0
condition	0	3	0.0
subroutine	4	7	57.1
pod	0	3	0.0
total	16	63	25.4

package Video::FindEvent;

use vars qw($VERSION @EXPORTER);
$VERSION = 0.01;
@EXPORTER = qw(new configure foundevent);

use strict;
use Video::Event;
use Data::Dumper;

sub new {
    my ($class) = @_;
    my $self = bless {}, ref($class) || $class;
    $self->{'events'} = ();
    return $self;
}

sub configure {
    my ($self, $args) = @_;
    foreach my $arg (keys %$args) {
        $self->{$arg} = $$args{$arg};
    }
}

sub foundevent {
    #don't override
    my ($self, $time, $coolness, $probability, $boundary, $keepstate) = @_;
    if ($self->{'writefile '} ne '') {
        if ($$keepstate{'eventhandle'}) {
            my $FH = $$keepstate{'eventhandle'};
            print $FH "$time\n" if $boundary;
        }
        else {
            if ($boundary) {
                my $file = $self->{'writeto'};
                open FH, ">>$file.bdy";
                print FH "$time\n";
                close FH;
            }
        }
        my $hash = { 'time' => $time,
                     'probability' => $probability,
                     'boundary' => $boundary,
                     'coolness' => $coolness,
                     'envelope' => { 0 => 1 },
                   };
        my $event = Event->new($hash);
        if ($$keepstate{'eventarray'}) {
            push @{$$keepstate{'eventarray'}}, $event;
        }
        else {
            my $file = $self->{'writefile'};
            open GH, ">>$file.obj";
            my $dump = Dumper($event);
            print GH "$dump\n";
            close GH;
        }
    }
    return $keepstate;
}

1;