File Coverage

lib/PDF/WebKit/Source.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	2	2	100.0
condition	6	6	100.0
subroutine	8	8	100.0
pod	0	4	0.0
total	37	41	90.2

package PDF::WebKit::Source;
use strict;
use warnings;

use Moo;
use namespace::clean;

has string => ( is => 'rw' );

around 'BUILDARGS' => sub {
  my $orig = shift;
  my $class = shift;
  if (@_ != 1) {
    die "Usage: ${class}->new(\$source)\n";
  }

  my $string = shift;
  return $class->$orig({ string => $string });
};

sub is_url {
  my $self = shift;
  return (!ref($self->string) && $self->string =~ /^https?:/i);
}

sub is_file {
  my $self = shift;
  return (!ref($self->string) && !$self->is_url);
}

sub is_html {
  my $self = shift;
  return ref($self->string) eq 'SCALAR';
}

sub content {
  my $self = shift;
  return ref($self->string) ? ${$self->string} : $self->string;
}

1;