File Coverage

lib/Comics/Fetcher/GoComics.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	25	52.0

#! perl

use strict;
use warnings;

package Comics::Fetcher::GoComics;

use parent qw(Comics::Fetcher::Cascade);

=head1 NAME

Comics::Fetcher::GoComics -- Fetcher for GoComics.

=head1 SYNOPSIS

  package Comics::Plugin::Garfield;
  use parent qw(Comics::Fetcher::GoComics);

  sub register {
      shift->SUPER::register
	( { name    => "Garfield",
	    url     => "http://www.comics.com/garfield",
	  } );
  }
  # Return the package name.
  __PACKAGE__;

=head1 DESCRIPTION

The C Fetcher handles comics that are on the GoComics
websites (comics.com, gocomics.com).

The Fetcher requires the common arguments:

=over 8

=item name

The full name of this comic, e.g. "Garfield".

=item url

The base url of this comic.

=back

Fetcher specific arguments:

=over 8

=item None as yet.

=back

=cut

our $VERSION = "1.02";

# Page contents changed, january 10, 2017.
# Page contents changed, april 5, 2018.

sub register {
    my ( $pkg, $init ) = @_;

    # Leave the rest to SUPER.
    my $self = $pkg->SUPER::register($init);

    if ( ! $self->{url} && $self->{tag} ) {
	$self->{url} = "http://www.gocomics.com/" . $self->{tag} . "/";
    }

    # Add the standard pattern for GoComics comics.
    $self->{patterns} =
      [
       qr{ href="(?.*?)">Comics
         }x,
       qr{
	   content="(?https?://assets.amuniversal.com/
	   (?[0-9a-f]+))" \s+
           />
         }x,
       ];

    return $self;
}

1;