view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

LICENSE
MANIFEST
META.yml
Makefile.PL
README
bin/pandora-periscope
dist.ini
extra/Pandora.png
lib/App/PandoraPeriscope.pm

lib/App/PandoraPeriscope.pm  view on Meta::CPAN

package App::PandoraPeriscope;
# ABSTRACT: A Periscope for Pandora

use File::Spec;
use File::Basename;

use Periscope;

my $URL   = 'http://pandora.com';
my $TITLE = 'Pandora Periscope';
my $ICON  = File::Spec->join(dirname(__FILE__), '..', '..', 'extra', 'Pandora.png');

sub exec {
	Periscope->new(address => $URL, title => $TITLE, icon => $ICON, width => 800, height => 600)->show;
}

1;