package Xawtv;

use strict;

our $AUTOLOAD;

sub new {
	my $proto = shift;
	my $class = ref($proto) || $proto;
	my $self  = {};
	bless ($self, $class);
	return $self;
}

sub load {
	my $self = shift;
	my $file = shift;
	if (fork() == 0) {
		exec("xawtv -xv -f");
	}
}

sub quit {
	my $self = shift;
	system("xawtv-remote quit");
}

sub AUTOLOAD {
	my $self = shift;
	my $name = $AUTOLOAD;
	print "Unknown method $name called\n";
}

1;