File Coverage

blib/lib/SeeAlso/Identifier.pm

Criterion	Covered	Total	%
statement	37	41	90.2
branch	8	10	80.0
condition			n/a
subroutine	17	20	85.0
pod	13	13	100.0
total	75	84	89.2

use strict;
use warnings;
package SeeAlso::Identifier;
{
  $SeeAlso::Identifier::VERSION = '0.71';
}
#ABSTRACT: Controlled identifier that can be normalized and hashed


use overload (
    '""'   => sub { $_[0]->as_string },
    'bool' => sub { $_[0]->valid },
    '<=>' => sub { $_[0]->cmp( $_[1] ) },
    'cmp' => sub { $_[0]->cmp( $_[1] ) },
    fallback => 1
);


sub parse {
    my $value = shift;
    return defined $value ? "$value" : "";
}


sub new {
    my $class = shift;

    my $value = '';
    my $self = bless \$value, $class;
    $self->value( $_[0] );

    return $self;
}


sub value {
    my $self = shift;
    if ( scalar @_ ) {
        ## no critic
        my $value = eval ref($self).'::parse($_[0])';
        ## use critic
        $$self = defined $value ? "$value" : "";
    }
    return $$self;
}


sub canonical {
    return ${$_[0]};
}


sub hash {
    return $_[0]->canonical;
}


sub valid {
    return ${$_[0]} ne '';
}



sub cmp {
    my $self = shift;
    my $second = shift;
    # TODO: use the same class as the first for comparing (and test this)!
    $second = SeeAlso::Identifier->new( $second )
        unless UNIVERSAL::isa( $second, 'SeeAlso::Identifier' );
    return $self->canonical cmp $second->canonical;
}


sub as_string {
    return $_[0]->canonical;
}


sub normalized { return $_[0]->canonical; }

sub indexed { return $_[0]->hash; }

sub condensed { return $_[0]->hash; }

sub get { return $_[0]->value; }

sub set {
    my $self = shift;
    return $self->value( scalar @_ ? @_ : undef );
}

1;


__END__