lib/YAML/Tag.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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;