File Coverage

blib/lib/Riji/Model/Tag.pm

Criterion	Covered	Total	%
statement	21	25	84.0
branch	0	2	0.0
condition			n/a
subroutine	7	8	87.5
pod	0	1	0.0
total	28	36	77.7

package Riji::Model::Tag;
use feature ':5.10';
use strict;
use warnings;

use Encode;
use MIME::Base32 1.301 ();

use Mouse;

has name => (
    is       => 'ro',
    isa      => 'Str',
    required => 1,
);

has entries => (
    is => 'rw',
    isa => 'ArrayRef[Riji::Model::Entry]',
    lazy    => 1,
    default => sub { [] },
);

has count => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        scalar @{ shift->entries };
    },
);

has _encoded_name => (
    is => 'ro',
    default => sub {
        my $name = shift->name;
        return $name unless $name =~ /[^-_a-zA-Z0-9]/ms;

        'b32.'.MIME::Base32::encode_rfc3548(encode_utf8 $name);
    }
);

has site_path => (
    is      => 'ro',
    default => sub { '/tag/' . shift->_encoded_name . '.html' },
);

no Mouse;

sub normalize_tag {
    my ($class, $tag) = @_;

    if ($tag =~ s/^b32\.//) {
        return decode_utf8 MIME::Base32::decode_rfc3548($tag);
    }
    $tag;
}

1;