modules/override/YAML/Tag.pm

   1 use strict; use warnings;
   2 package YAML::Tag;
   3
   4 use overload '""' => sub { ${$_[0]} };
   5
   6 sub new {
   7     my ($class, $self) = @_;
   8     bless \$self, $class
   9 }
  10
  11 sub short {
  12     ${$_[0]}
  13 }
  14
  15 sub canonical {
  16     ${$_[0]}
  17 }
  18
  19 1;