package YAML::Tag; use strict; use warnings; our $VERSION = '0.71'; 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 =head1 COPYRIGHT Copyright (c) 2006. 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 =cut