Current File : //proc/self/root/usr/share/perl5/YAML/Tag.pm
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;