view release on metacpan or  search on metacpan

lib/Hoobot/Page.pm  view on Meta::CPAN

}

sub prepare_update {
  my $self = shift;
  $self = $self->new unless ref $self;

  return $self;
}

# method (do the actual downloading thing)
sub update {
  my $self = shift;
  $self = $self->new unless ref $self; # does this make sense?!

  $self->prepare_update; # setup anything necessary before updating

  my $url = URI->new($self->host);
  $url->scheme or $url->scheme('http');
  $url->path_segments(
    $url->path_segments,
    'dna',