The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package UAV::Pilot::ARDrone::Video::Mock;
use v5.14;
use Moose;
use namespace::autoclean;

extends 'UAV::Pilot::ARDrone::Video';

has 'emergency_count' => (
    is      => 'rw',
    isa     => 'Int',
    default => 0,
);



sub emergency_restart
{
    my ($self) = @_;
    $self->emergency_count( $self->emergency_count + 1 );
    return 1;
}


sub _build_io
{
    my ($class, $args) = @_;
    my $file = $$args{file};
    open( my $fh, '<', $file ) 
        or UAV::Pilot::IOException->throw(
            error => "Could not open file '$file': $!",
        );
    return $fh;
}


no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__