File Coverage

blib/lib/Hoobot.pm

Criterion	Covered	Total	%
statement	10	43	23.2
branch	0	22	0.0
condition	0	5	0.0
subroutine	4	9	44.4
pod	0	5	0.0
total	14	84	16.6

# SOAP::Lite style Hoobot

package Hoobot;

use strict;
use warnings;
use Hoobot::Page;

our $VERSION = '0.5.0'; # semi sane

our @_objs;

END {
  require Data::Dumper;
#  print STDERR Data::Dumper->Dump([\@_objs],['*_objs']);
}

sub new {
  my $proto = shift;
  my $class = ref $proto || $proto;
  my $self = bless {}, $class;

  local %_ = @_;
  for (keys %_) {
    $self->$_($_{$_});
  }

  push @_objs, $self;

  $self;
}

# method (construct a linked Hoobot::Page)
sub page {
  my $self = shift;
  $self = $self->new unless ref $self;

  return Hoobot::Page->new(
    hoobot => $self,
    page => shift,
  );
}

# accessor
sub hoobot {
  my $self = shift;
  $self = $self->new unless ref $self;
  return $self->{hoobot} unless @_;

  $self->{hoobot} = shift;

  return $self;
}

# recursing accessor
sub ua {
  my $self = shift;
  $self = $self->new unless ref $self;
  unless (@_) {
    # we know the value
    return $self->{ua} if defined $self->{ua};
    # our parent knows the value?
    return $self->hoobot->ua if defined $self->hoobot;
    # otherwise create our own
    require LWP::UserAgent;
    return $self->{ua} = LWP::UserAgent->new;
  }

  # TODO: check interface
  $self->{ua} = shift;

  return $self;
}

# recursing accessor
sub host {
  my $self = shift;
  $self = $self->new unless ref $self;
  unless (@_) {
    return $self->{host} if defined $self->{host};
    return $self->hoobot->host if defined $self->hoobot;
    return $self->{host} = $ENV{HOOBOT_HOST} || 'http://www.bbc.co.uk';
  }

  $self->{host} = shift;

  return $self;
}

1;

__END__