File Coverage

blib/lib/Device/Video/PWC.pm

Criterion	Covered	Total	%
statement	9	30	30.0
branch			n/a
condition	0	2	0.0
subroutine	3	11	27.2
pod	8	8	100.0
total	20	51	39.2

package Device::Video::PWC;

use strict;
use warnings;

our $VERSION = '0.11';

use XSLoader;
XSLoader::load('Device::Video::PWC', $VERSION);
#=======================================================================
sub new {
	my ($class, $device) = @_;

	my $self = bless { device => $device }, $class;

	$self->set_device( $device || q[/dev/video0] );

	return $self;
}
#=======================================================================
sub set_pan {
	my ($self, $val) = @_;

	$self->set_pan_or_tilt( 0,  $val );

	return;
}
#=======================================================================
sub set_tilt {
	my ($self, $val) = @_;

	$self->set_pan_or_tilt( 1,  $val );

	return;
}
#=======================================================================
sub set_framerate {
	my ($self, $val) = @_;

	$self->set_dimensions_and_framerate( 0, 0, $val );

	return;
}
#=======================================================================
sub red_balance {
	my( $self, $val ) = @_;

	$self->set_automatic_white_balance_mode_red( $val );
}
#=======================================================================
sub blue_balance {
	my( $self, $val ) = @_;

	$self->set_automatic_white_balance_mode_blue( $val );
}
#=======================================================================
sub reset_pan {
	my ($self) = @_;

	$self->reset_pan_tilt( 0 );
}
#=======================================================================
sub reset_tilt {
	my ($self) = @_;

	$self->reset_pan_tilt( 1 );
}
#=======================================================================
1;

__END__