File Coverage

blib/lib/Range/Object/String.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch			n/a
condition			n/a
subroutine	14	14	100.0
pod	3	3	100.0
total	47	47	100.0

package Range::Object::String;

# This is basically what common::sense does, but without the pragma itself
# to remain compatible with Perls older than 5.8

use strict;

no  warnings;
use warnings qw(FATAL closed internal debugging pack malloc portable
                prototype inplace io pipe unpack deprecated glob digit
                printf reserved taint closure semicolon);
no  warnings qw(exec newline unopened);

use Carp;

use base qw(Range::Object);

# Overload definitions

use overload q{""}    => 'stringify',
             fallback => 1;

### PUBLIC INSTANCE METHOD ###
#
# Returns regex for matching strings -- any strings.
#

sub pattern {
    return qr/\A .* \z/xms
}

### PUBLIC INSTANCE METHOD ###
#
# Returns regex that is used to separate items in a range list.
# Default for Strings are \r, \n or \t.
#

sub separator { qr/ [\r\n\t] /xms }

### PUBLIC INSTANCE METHOD ###
#
# Returns default range delimiter; Strings use newline ("\n").
#

sub delimiter  { "\n" }

############## PRIVATE METHODS BELOW ##############

### PRIVATE INSTANCE METHOD ###
#
# Returns default list separator for use with stringify() and
# stringify_collapsed()
#

sub _list_separator { "\n" }

### PRIVATE INSTANCE METHOD ###
#
# Expands a list of items using Perl range operator.
# Does nothing for Strings.
#

sub _explode_range {
    my ($self, $string) = @_;

    return ($string);
}

### PRIVATE INSTANCE METHOD ###
#
# Tests if two values are equal.
#

sub _equal_value {
    my ($self, $first, $last) = @_;

    return !!($first eq $last);
}

### PRIVATE INSTANCE METHOD ###
#
# Tests if two values are consequent. Since string ranges are actually
# disjointed collections, this method does nothing.
#

sub _next_in_range { return; }

1;

__END__