File Coverage

blib/lib/WWW/Live/Auth/Offer.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	2	0.0
condition	0	9	0.0
subroutine	4	10	40.0
pod	0	5	0.0
total	16	57	28.0

package WWW::Live::Auth::Offer;

use strict;
use warnings;

use WWW::Live::Auth::Utils;
use Carp;

sub new {
  my ( $proto, %args ) = @_;
  my $class = ref $proto || $proto;
  my $self = bless {
    'offer'    => $args{'offer'},
    'action'   => $args{'action'},
    'expires'  => $args{'expires'}
  }, $class;
  $self->_process;
  return $self;
}

sub offer {
  my ( $self ) = @_;
  return $self->{'offer'};
}

sub action {
  my ( $self ) = @_;
  return $self->{'action'};
}

sub expires {
  my ( $self ) = @_;
  return $self->{'expires'};
}

sub as_string {
  my ( $self ) = @_;
  return $self->offer . '.' . $self->action;
}

sub _process {
  my ( $self ) = @_;
  if ( !$self->{'action'} ) {
    my ($offer, $action, $expires) = split /[\.:]/, $self->{'offer'};
    $self->{'offer'}   = $offer  || croak('Could not parse offer');
    $self->{'action'}  = $action || croak('Could not parse offer action');
    $self->{'expires'}; # optional
  }
}

1;
__END__