File | /usr/share/perl5/YAML/Tag.pm |
Statements Executed | 10 |
Total Time | 0.0011505 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN | YAML::Tag::
0 | 0 | 0 | 0s | 0s | __ANON__[:4] | YAML::Tag::
0 | 0 | 0 | 0s | 0s | canonical | YAML::Tag::
0 | 0 | 0 | 0s | 0s | new | YAML::Tag::
0 | 0 | 0 | 0s | 0s | short | YAML::Tag::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | package YAML::Tag; | |||
2 | 6 | 82µs | 14µs | use strict; use warnings; # spent 20µs making 1 call to warnings::import
# spent 7µs making 1 call to strict::import |
3 | ||||
4 | 3 | 1.07ms | 355µs | use overload '""' => sub { ${$_[0]} }; # spent 50µs making 1 call to overload::import |
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 | 2µs | 2µs | 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 |