File Coverage

blib/lib/Metabase/Fact/String.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	3	6	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	3	3	100.0
total	39	44	88.6

use 5.006;
use strict;
use warnings;

package Metabase::Fact::String;
our $VERSION = '0.024'; # VERSION

use Carp ();

use Metabase::Fact;
our @ISA = qw/Metabase::Fact/;

# document that content must be characters, not bytes -- dagolden, 2009-03-28

sub validate_content {
    my ($self) = @_;
    Carp::confess "content must be scalar value"
      unless defined $self->content && ref \( $self->content ) eq 'SCALAR';
}

sub content_as_bytes {
    my ($self) = @_;
    my $bytes = $self->content;
    utf8::encode($bytes) if $] ge '5.008'; # converts in-place
    return $bytes;
}

sub content_from_bytes {
    my ( $class, $bytes ) = @_;
    utf8::decode($bytes) if $] ge '5.008'; # converts in-place
    return $bytes;
}

1;

# ABSTRACT: fact subtype for simple strings

__END__