File Coverage

blib/lib/WebService/LiveJournal/Tag.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch			n/a
condition	0	3	0.0
subroutine	3	9	33.3
pod	5	6	83.3
total	17	36	47.2

package WebService::LiveJournal::Tag;

use strict;
use warnings;
use WebService::LiveJournal::Thingie;
our @ISA = qw/ WebService::LiveJournal::Thingie /;

# ABSTRACT: A LiveJournal tag
our $VERSION = '0.08'; # VERSION


sub new
{
  my $ob = shift;
  my $class = ref($ob) || $ob;
  my $self = bless { payload => shift }, $class;
  return $self;
}


sub name { shift->{payload}->{name} }


sub display { shift->{payload}->{display} }


sub security_level { shift->{payload}->{security_level} }


sub uses { shift->{payload}->{uses} }


sub security { shift->{payload}->{security} }


1;

__END__