Edit File: Tag.pm
use strict; use warnings; package YAML::Tag; our $VERSION = '0.84'; use overload '""' => sub { ${$_[0]} }; sub new { my ($class, $self) = @_; bless \$self, $class } sub short { ${$_[0]} } sub canonical { ${$_[0]} } 1; __END__ =head1 NAME YAML::Tag - Tag URI object class for YAML =head1 SYNOPSIS use YAML::Tag; =head1 DESCRIPTION Used by YAML::Node. =head1 AUTHOR Ingy döt Net <ingy@cpan.org> =head1 COPYRIGHT Copyright (c) 2006, 2011-2012. Ingy döt Net. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<http://www.perl.com/perl/misc/Artistic.html> =cut