File Coverage

blib/lib/Astro/VEX/Param/String.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	3	6	50.0
condition	1	6	16.6
subroutine	6	6	100.0
pod	0	2	0.0
total	35	46	76.0

package Astro::VEX::Param::String;

=head1 NAME

Astro::VEX::Param::String - VEX (VLBI Experiment Definition) string parameter class

=cut

use strict;
use warnings;

our $VERSION = '0.001';

use parent qw/Astro::VEX::Param::Value/;

use overload '""' => 'stringify';

sub new {
    my $proto = shift; my $class = ref($proto) || $proto;
    my $value = shift;
    my $quoted = shift;

    return bless {
        VALUE => $value,
        QUOTED => $quoted,
    }, $class;
}

sub stringify {
    my $self = shift;

    my $value = $self->{'VALUE'};
    my $quote = $self->{'QUOTED'};

    unless (defined $quote) {
        $quote = 1 if $value =~ /[ \t\n]/
            || $value =~ /^"/;
    }

    return $value unless $quote;

    $value =~ s/\\/\\\\/;

    $value =~ s/(["])/\\$1/g;

    return sprintf '"%s"', $value;
}

1;

__END__