File Coverage

blib/lib/TOON.pm

Criterion	Covered	Total	%
statement	48	64	75.0
branch	0	2	0.0
condition	3	6	50.0
subroutine	11	14	78.5
pod	10	10	100.0
total	72	96	75.0

package TOON;

use v5.40;
use feature 'signatures';

use Exporter 'import';
use TOON::PP ();

our $VERSION   = '0.1.0';
our @EXPORT_OK = qw(
  encode_toon decode_toon
  to_toon from_toon
);

sub encode_toon ($data, %opts) {
  return TOON::PP->new(%opts)->encode($data);
}

sub decode_toon ($text, %opts) {
  return TOON::PP->new(%opts)->decode($text);
}

sub to_toon   ($data, %opts) { return encode_toon($data, %opts) }
sub from_toon ($text, %opts) { return decode_toon($text, %opts) }

sub new ($class, %opts) {
  return bless {
    pretty    => $opts{pretty}    // 0,
    canonical => $opts{canonical} // 0,
    indent    => $opts{indent}    // 2,
  }, $class;
}

sub encode ($self, $data) {
  return TOON::PP->new(%$self)->encode($data);
}

sub decode ($self, $text) {
  return TOON::PP->new(%$self)->decode($text);
}

sub pretty ($self, $value = 1) {
  $self->{pretty} = $value;
  return $self;
}

sub canonical ($self, $value = 1) {
  $self->{canonical} = $value;
  return $self;
}

sub indent ($self, $value) {
  $self->{indent} = $value if defined $value;
  return $self;
}

1;

__END__