Current Path : /proc/self/root/proc/2/cwd/usr/local/share/perl5/YAML/ |
Current File : //proc/self/root/proc/2/cwd/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;