File Coverage

blib/lib/Farly/Value/String.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	6	83.3
condition			n/a
subroutine	10	10	100.0
pod	5	6	83.3
total	48	50	96.0

package Farly::Value::String;

use 5.008008;
use strict;
use warnings;
use Carp;

our $VERSION = '0.26';

sub new {
    my ( $class, $string ) = @_;

    confess "string required"
      unless defined($string);

    $string =~ s/^\s+|\s+$//g;

    return bless( \$string, $class );
}

sub as_string { return ${ $_[0] } }

sub equals {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::String') ) {
        return $self->as_string() eq $other->as_string();
    }
}

sub contains {
    my ( $self, $other ) = @_;
    return $self->equals($other);
}

sub intersects {
    my ( $self, $other ) = @_;
    return $self->equals($other);
}

sub compare {
    my ( $self, $other ) = @_;

    if ( $other->isa('Farly::Value::String') ) {
        return $self->as_string() cmp $other->as_string();
    }
}

1;
__END__