File Coverage

lib/XML/Loy/OStatus.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	4	6	66.6
condition			n/a
subroutine	10	11	90.9
pod	6	6	100.0
total	44	49	89.8

package XML::Loy::OStatus;
use strict;
use warnings;

use XML::Loy with => (
  prefix => 'ostatus',
  namespace => 'http://ostatus.org/schema/1.0/'
);

use Carp qw/carp/;

# No constructor
sub new {
  carp 'Only use ' . __PACKAGE__ . ' as an extension to Atom';
  return;
};


# Add 'attention' link
sub attention {
  shift->_ostatus_link( attention => @_ );
};


# Add 'conversation' link
sub conversation {
  shift->_ostatus_link( conversation => @_ );
};


# Link elements
sub _ostatus_link {
  my $self = shift;
  my $rel = 'ostatus:' . shift;

  # Get href from link element
  unless (@_) {
    my $att = $self->link($rel) or return;
    $att = $att->[0] or return;
    return $att->attr('href');
  };

  # Create new link element
  return $self->link(
    rel  => $rel,
    href => shift,
    @_
  );
};


# OStatus activity 'leave'
sub verb_leave {
  shift->verb( __PACKAGE__->_namespace . 'leave');
};


# OStatus activity 'unfollow'
sub verb_unfollow {
  shift->verb( __PACKAGE__->_namespace . 'unfollow');
};


# OStatus activity 'unfavorite'
sub verb_unfavorite {
  shift->verb( __PACKAGE__->_namespace . 'unfavorite');
};


1;


__END__