modules/override/YAML/Tag.pm

   1 package YAML::Tag;
   2 use strict; use warnings;
   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;
  20
  21 __END__
  22
  23 =head1 NAME
  24
  25 YAML::Tag - Tag URI object class for YAML
  26
  27 =head1 SYNOPSIS
  28
  29     use YAML::Tag;
  30
  31 =head1 DESCRIPTION
  32
  33 Used by YAML::Node.
  34
  35 =head1 AUTHOR
  36
  37 Ingy döt Net <ingy@cpan.org>
  38
  39 =head1 COPYRIGHT
  40
  41 Copyright (c) 2006. Ingy döt Net. All rights reserved.
  42
  43 This program is free software; you can redistribute it and/or modify it
  44 under the same terms as Perl itself.
  45
  46 See L<http://www.perl.com/perl/misc/Artistic.html>
  47
  48 =cut