NAME

Video::Xine - Perl interface to libxine

SYNOPSIS

use Video::Xine;

# Create and initialize the Xine driver
my $xine = $xine->new(
  config_file => "$ENV{'HOME'}/.xine/config",
  video_driver => Video::Xine->VIDEO_DRIVER_NULL()
);

# Play a particular AVI until it's over
my $stream = $xine->stream_new();
$stream->open('file://my/movie/file.avi')
  or die "Couldn't open stream: ", $stream->get_error();

# Get the current position (0 .. 65535), position in time, and length
# of stream in milliseconds
my ($pos, $pos_time, $length_time) = $stream->get_pos_length();


$stream->play()
   or die "Couldn't play stream: ", $xine->get_error();

while ( $xine->get_status() == XINE_STATUS_PLAY ) {
  sleep(1);
}

DESCRIPTION

A perl interface to Xine, the Linux movie player. More properly, an interface to libxine, the development library.

EXPORT

None by default.

SEE ALSO

Mention other useful documentation such as the documentation of related modules or operating system documentation (such as man pages in UNIX), or any relevant external documentation such as RFCs or standards.

If you have a mailing list set up for your module, mention it here.

If you have a web site set up for your module, mention it here.

AUTHOR

Stephen Nelson, <steven@localdomain>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Stephen Nelson

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or, at your option, any later version of Perl 5 you may have available.