File Coverage

blib/lib/BBS/Perm/Plugin/URI.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package BBS::Perm::Plugin::URI;

use warnings;
use strict;
use Carp;
use Gtk2;

my $cmd;
sub new {
    my ( $class, %opt ) = @_;
    $cmd    = $opt{browser} || 'firefox -new-tab';
    my $self   = [undef];
    bless $self, ref $class || $class;
    return $self;
}

sub browse {
    my ( $self, $uri ) = @_;
    if ($uri) {
        system("$cmd \Q$uri\E &")
          and warn 'can not run browser';
    }
}

sub push {
    my ( $self, $input ) = @_;
    return push @$self, $input;
}

sub pop {
    my $self = shift;
    return pop @$self unless @$self == 1;
}

sub uri {
    my $self = shift;
    return [ @{$self}[ 1 .. $#{$self} ] ];
}

sub size {
    return @{ shift->uri };
}

sub clear {
    my $self = shift;
    splice @$self, 1;
}

1;

__END__