File Coverage

blib/lib/SDLx/FPS.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	2	2	100.0
condition			n/a
subroutine	9	9	100.0
pod	4	4	100.0
total	40	41	97.5

package SDLx::FPS;
use strict;
use warnings;
use SDL::GFX::Framerate;
use SDL::GFX::FPSManager;
use Carp;
our @ISA = qw(SDL::GFX::FPSManager);

sub new {
	my ( $class, %args ) = @_;

	for ( grep { $_ ne 'fps' } keys %args ) {
		Carp::cluck("Unrecognized constructor hash key: $_");
	}
	my $fps = $class->SDL::GFX::FPSManager::new( 0, 0, 0, 0 );
	SDL::GFX::Framerate::init( $fps );
	$fps->set( $args{fps} ) if defined $args{fps};
	$fps;
}

sub set {
	SDL::GFX::Framerate::set( @_[ 0, 1 ] );
}

sub get {
	SDL::GFX::Framerate::get( $_[0] );
}

sub delay {
	SDL::GFX::Framerate::delay( $_[0] );
}

1;

__END__