File Coverage

blib/lib/XML/Loy/ActivityStreams.pm

Criterion	Covered	Total	%
statement	54	60	90.0
branch	18	26	69.2
condition			n/a
subroutine	11	11	100.0
pod	5	5	100.0
total	88	102	86.2

package XML::Loy::ActivityStreams;
use strict;
use warnings;
use XML::Loy with => (
  prefix    => 'activity',
  namespace => 'http://activitystrea.ms/schema/1.0/'
);

# Todo: support to_json
# Todo: verbs and object-types may need namespaces
# Todo: Support ActivityStreams 2 as a anamespace

use Carp qw/carp/;

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

# Add or get ActivityStreams actor
sub actor {
  my $self  = shift;

  # Set actor
  if ($_[0]) {
    my $actor = $self->author( @_ );

    $actor->set('object-type', _check_prefix('person'));
    return $actor;
  }

  # Get actor
  else {
    my $actor = $self->author->[0];
    if ($actor) {

      my $object_type = $actor->children('object-type');

      return unless $object_type = $object_type->[0];

      # Prepend namespace if not defined
      if (index($object_type->text, '/') == -1) {
	$object_type->content(
	  __PACKAGE__->_namespace . lc $object_type->text
	);
      };

      return $actor;
    };
  };

  return;
};


# Add or get ActivityStreams verb
sub verb {
  my $self = shift;

  # Set verb
  if ($_[0]) {
    return $self->set(verb => _check_prefix($_[0]));
  }

  # Get verb
  else {
    my $verb = $self->children('verb');

    return unless $verb = $verb->[0];

    # Prepend namespace if not defined
    if (index($verb->text, '/') == -1) {
      my $nverb = __PACKAGE__->_namespace . lc $verb->text;
      $verb->content($nverb);
      return $nverb;
    };

    return $verb->text;
  }
};


# Add or get ActivityStreams object
sub object {
  shift->_target_object(object => @_ );
};


# Add or get ActivityStreams target
sub target {
  shift->_target_object(target => @_ );
};


sub _target_object {
  my $self = shift;
  my $type = shift;

  # Add target or object
  if ($_[0]) {
    my %params = @_;

    my $obj = $self->set($type);

    $obj->id( delete $params{id} ) if exists $params{id};

    if (exists $params{'object-type'}) {

      my $type = delete $params{'object-type'};

      $obj->set('object-type', _check_prefix($type));
    };

    foreach (keys %params) {
      $obj->add('-' . $_ => $params{$_});
    };

    return $obj;
  }

  # Get target or object
  else {
    my $obj = $self->at($type);

    return unless $obj->[0];

    my $object_type = $obj->children('object-type')->[0];

    # Prepend namespace if not defined
    if (index($object_type->text, '/') == -1) {
      $object_type->content(
	__PACKAGE__->_namespace . lc($object_type->text)
      );
    };

    return $obj;
  };
};


# Prefix relative object types and verbs with
# ActivityStreams namespace
sub _check_prefix {
  if (index($_[0], '/') == -1) {
    return __PACKAGE__->_namespace . lc $_[0];
  };
  return $_[0];
};


1;


__END__