File Coverage

blib/lib/HTML/WebMake/DataSourceBase.pm

Criterion	Covered	Total	%
statement	12	30	40.0
branch			n/a
condition	0	3	0.0
subroutine	4	10	40.0
pod	0	6	0.0
total	16	49	32.6

#

package HTML::WebMake::DataSourceBase;


use HTML::WebMake::DataSource;
use Carp;
use strict;

use vars	qw{
  	@ISA
};




###########################################################################

sub new {
  my $class = shift;
  $class = ref($class) || $class;

  my ($parent) = @_;
  my $self = { %$parent };

  $self->{parent}	= $parent;

  bless ($self, $class);
  $self;
}

sub as_string {
  my ($self) = @_;
  $self->{parent}->as_string();
}

# -------------------------------------------------------------------------

sub add {
  my ($self) = @_;
  croak "Unimplemented interface in ".__FILE__;
}

# -------------------------------------------------------------------------

sub get_location_url {
  my ($self, $location) = @_;
  warn " tag not supported by this data source: $location\n";
  "";
}

# -------------------------------------------------------------------------

sub get_location_contents {
  my ($self, $location) = @_;
  croak "Unimplemented interface in ".__FILE__;
}

# -------------------------------------------------------------------------

sub get_location_mod_time {
  my ($self, $location) = @_;
  croak "Unimplemented interface in ".__FILE__;
}

1;