File Coverage

lib/WordPress/Base.pm

Criterion	Covered	Total	%
statement	12	36	33.3
branch	0	8	0.0
condition	0	5	0.0
subroutine	4	9	44.4
pod	0	3	0.0
total	16	61	26.2

package WordPress::Base;
# DEPRECATED
use strict;
use warnings;
use Carp;

no strict 'refs';


sub new {
   my ($class,$self) = @_;
   ref $self eq 'HASH' or croak('expected hash ref arg to constructor');


   bless $self, $class;
   return $self;

}


#required params/methods for a connection
for my $param (qw(proxy username password)){
   #my $method = "_$param";

   *{$param} = sub {
      my $self = shift;
      my $val = shift;
      if( defined $val ){
         $self->{$param} = $val;
      }

      return $self->{$param};
   };

}





# i know it doesnt cache it in object, this is just the raw method
sub _categories {
   my $self = shift;
   my $call = $self->server->call(
      'metaWeblog.getCategories',
      1, # blogid ignored
      $self->username,
      $self->password,
      );

   my @categories =  map { $_->{categoryName} } @{ $call->result };
   return @categories;
}
# may return undef





# yes this one caches. always returns array ref
sub categories {
   my $self = shift;
   $self->{_categories} ||= [ $self->_categories ];
   return $self->{_categories};
}






sub server {
   my $self = shift;
   unless( $self->{_server} ){
      $self->proxy or croak('missing proxy');
      require XMLRPC::Lite;

      $self->{_server} ||= XMLRPC::Lite->proxy( $self->proxy );
   }
   return $self->{_server};
}


1;

__END__