File Coverage

blib/lib/Acme/Text/Shorten/ForTwitter.pm

Criterion	Covered	Total	%
statement	4	6	66.6
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	6	8	75.0

package Acme::Text::Shorten::ForTwitter;
# ABSTRACT: Shorten text for use in tweets

use Moo;
use Module::Pluggable require => 1;

my (%base_rules, %default_rules);

for my $p (__PACKAGE__->plugins()) {
  die "Plugin $p does not implement modify_base_rules method!\n" unless $p->can('modify_base_rules');

  $p->modify_base_rules(\%base_rules);
}

sub import {
  my ($pkg, @args) = @_;

  %default_rules = ();

  unshift @args, 'all' unless grep { $_ =~ /(^\+|^all$)/ } @args;

  for my $arg (@args) {
    if ($arg eq 'all') {
      %default_rules = %base_rules;
    } elsif ($arg =~ s/^-//) {
      die "Unknown rule $arg\n" unless $base_rules{$arg};

      delete $default_rules{$arg};
    } elsif ($arg =~ s/^\+//) {
      die "Unknown rule $arg\n" unless $base_rules{$arg};

      $default_rules{$arg} = $base_rules{$arg};
    } else {
      die "Unknown option $arg\n";
    }
  }
}

has rules => (
  is => 'lazy',
  isa => sub {
    die "$_[0] must be a hashref\n" unless ref $_[0] && ref $_[0] eq 'HASH';
  },
  default => sub {
    return { %default_rules }
  }
);

sub add_rule {
  my ($self, $name, $rule) = @_;

  die "rule $name already exits\n" if $self->rules->{$name};

  unless ($rule) {
    die "No default rule named $name\n" unless $default_rules{$name};

    $self->rules->{$name} = $default_rules{$name};

    return;
  }

  die "rule must be a subroutine\n" unless ref $rule && ref $rule eq 'CODE';

  $self->rules->{$name} = $rule;

  return;
}

sub remove_rule {
  my ($self, $name) = @_;

  die "rule $name does not exist\n" unless $self->rules->{$name};

  delete $self->rules->{$name};

  return;
}

sub shorten {
  my $self = shift;
  my $text = shift;

  for my $rule (values %{ $self->rules }){
    $rule->(\$text);
  }

  return $text;
}

1;
__END__