File Coverage

blib/lib/X11/Muralis/Backend/Xsri.pm

Criterion	Covered	Total	%
statement	6	24	25.0
branch	0	16	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	2	2	100.0
total	10	49	20.4

package X11::Muralis::Backend::Xsri;
$X11::Muralis::Backend::Xsri::VERSION = '0.1003';
use strict;
use warnings;

our @ISA = qw(X11::Muralis::Backend);

=head1 NAME

X11::Muralis::Backend:Xsri - use xsri to display images on the desktop.

=head1 VERSION

version 0.1003

=head1 SYNOPSIS

    muralis --use Xsri

=head1 DESCRIPTION

This is a backend for muralis which uses the xsri program
to display images on the desktop.

=cut

=head1 METHODS

=head2 new

=cut

sub new {
    my $class = shift;
    my %parameters =
	(
	 prog => 'xsri',
	 can_do => {
	    tile => 1,
	    fullscreen => 1,
	    centre => 1,
	    stretch => 1,
	    zoom => 1,
	 },
	 @_
	);
    my $self = bless ({%parameters}, ref ($class) || $class);
    return ($self);
} # new

=head2 display

    $self->display($filename, %args);

=cut

sub display {
    my $class = shift;
    my $filename = shift;
    my %args = (
		@_
	       );

    my $options = '';
    $options = " --tile" if $args{tile};
    $options = " --color black --scale-width=100 --scale-height=100 --keep-aspect --center-x --center-y --emblem" if $args{fullscreen};
    $options = " --color black --scale-width=100 --scale-height=100 --center-x --center-y --emblem" if $args{stretch};
    $options = " --color black --scale-width=$args{zoom} --scale-height=$args{zoom} --keep-aspect --emblem" if $args{zoom};
    $options = " --color black --center-x --center-y --emblem" if $args{center};
    $options = " --tile" if (!$options);
    $options = $args{option} . ' ' . $options if $args{option};
    my $command = "xsri $options '$filename'";
    print STDERR $command, "\n" if $args{verbose};
    system($command);
} # display

=head1 REQUIRES

    Test::More

=head1 INSTALLATION

To install this module, run the following commands:

    perl Build.PL
    ./Build
    ./Build test
    ./Build install

Or, if you're on a platform (like DOS or Windows) that doesn't like the
"./" notation, you can do this:

   perl Build.PL
   perl Build
   perl Build test
   perl Build install

In order to install somewhere other than the default, such as
in a directory under your home directory, like "/home/fred/perl"
go

   perl Build.PL --install_base /home/fred/perl

as the first step instead.

This will install the files underneath /home/fred/perl.

You will then need to make sure that you alter the PERL5LIB variable to
find the modules, and the PATH variable to find the script.

Therefore you will need to change:
your path, to include /home/fred/perl/script (where the script will be)

	PATH=/home/fred/perl/script:${PATH}

the PERL5LIB variable to add /home/fred/perl/lib

	PERL5LIB=/home/fred/perl/lib:${PERL5LIB}

=head1 SEE ALSO

perl(1).

=head1 BUGS

Please report any bugs or feature requests to the author.

=head1 AUTHOR

    Kathryn Andersen RUBYKAT
    perlkat AT katspace DOT org
    www.katspace.org

=head1 COPYRIGHT AND LICENCE

Copyright (c) 2008 by Kathryn Andersen

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1; # End of X11::Muralis::Backend::Xsri
__END__