Current Path : /proc/2/root/usr/local/share/perl5/YAML/

Upload File :

Current File : //proc/2/root/usr/local/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;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez