1#@!#!123s

: / proc / self / root / usr / local / share / perl5 / YAML /

Filename : Tag.pm

back

use strict; use warnings;
package YAML::Tag;

use overload '""' => sub { ${$_[0]} };

sub new {
    my ($class, $self) = @_;
    bless \$self, $class
}

sub short {
    ${$_[0]}
}

sub canonical {
    ${$_[0]}
}

1;