| File | /usr/local/share/perl/5.10.0/CGI/Session/Serialize/yaml.pm |
| Statements Executed | 21 |
| Total Time | 0.000817 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 33µs | 835µs | CGI::Session::Serialize::yaml::thaw |
| 1 | 1 | 1 | 20µs | 469µs | CGI::Session::Serialize::yaml::freeze |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package CGI::Session::Serialize::yaml; | |||
| 2 | ||||
| 3 | 2 | 41µs | 20µs | use strict; # spent 15µs making 1 call to strict::import |
| 4 | 3 | 221µs | 74µs | use CGI::Session::ErrorHandler; # spent 13µs making 1 call to UNIVERSAL::import |
| 5 | ||||
| 6 | 1 | 900ns | 900ns | $CGI::Session::Serialize::yaml::VERSION = '4.23'; |
| 7 | 1 | 8µs | 8µs | @CGI::Session::Serialize::yaml::ISA = ( "CGI::Session::ErrorHandler" ); |
| 8 | 1 | 200ns | 200ns | our $Flavour; |
| 9 | ||||
| 10 | 3 | 6µs | 2µs | unless($Flavour) { |
| 11 | 4 | 394µs | 98µs | my $package = (grep { eval("use $_ (); 1;") } qw(YAML::Syck YAML))[0] |
| 12 | or die "Either YAML::Syck or YAML are required to use ", __PACKAGE__; | |||
| 13 | $Flavour = $package; | |||
| 14 | } | |||
| 15 | ||||
| 16 | # spent 469µs (20+449) within CGI::Session::Serialize::yaml::freeze which was called
# once (20µs+449µs) by CGI::Session::flush at line 249 of /usr/share/perl5/CGI/Session.pm | |||
| 17 | 2 | 35µs | 17µs | my ($self, $data) = @_; |
| 18 | return $Flavour->can('Dump')->($data); # spent 434µs making 1 call to YAML::Syck::Dump
# spent 16µs making 1 call to UNIVERSAL::can | |||
| 19 | } | |||
| 20 | ||||
| 21 | ||||
| 22 | # spent 835µs (33+802) within CGI::Session::Serialize::yaml::thaw which was called
# once (33µs+802µs) by CGI::Session::load at line 728 of /usr/share/perl5/CGI/Session.pm | |||
| 23 | 2 | 32µs | 16µs | my ($self, $string) = @_; |
| 24 | 1 | 68µs | 68µs | return ($Flavour->can('Load')->($string))[0]; # spent 628µs making 1 call to YAML::Syck::Load
# spent 174µs making 1 call to UNIVERSAL::can |
| 25 | } | |||
| 26 | ||||
| 27 | 1 | 11µs | 11µs | 1; |
| 28 | ||||
| 29 | __END__; | |||
| 30 | ||||
| 31 | =pod | |||
| 32 | ||||
| 33 | =head1 NAME | |||
| 34 | ||||
| 35 | CGI::Session::Serialize::yaml - serializer for CGI::Session | |||
| 36 | ||||
| 37 | =head1 DESCRIPTION | |||
| 38 | ||||
| 39 | This library can be used by CGI::Session to serialize session data. It uses | |||
| 40 | C<YAML>, or the faster C implementation, C<YAML::Syck> | |||
| 41 | if it is available. YAML serializers exist not just for Perl but also other | |||
| 42 | dynamic languages, such as PHP, Python, and Ruby, so storing session data | |||
| 43 | in this format makes it easy to share session data across different languages. | |||
| 44 | ||||
| 45 | YAML is made to be friendly for humans to parse as well as other computer | |||
| 46 | languages. It creates a format that is easier to read than the default | |||
| 47 | serializer. | |||
| 48 | ||||
| 49 | =head1 METHODS | |||
| 50 | ||||
| 51 | =over 4 | |||
| 52 | ||||
| 53 | =item freeze($class, \%hash) | |||
| 54 | ||||
| 55 | Receives two arguments. First is the class name, the second is the data to be serialized. Should return serialized string on success, undef on failure. Error message should be set using C<set_error()|CGI::Session::ErrorHandler/"set_error()"> | |||
| 56 | ||||
| 57 | =item thaw($class, $string) | |||
| 58 | ||||
| 59 | Received two arguments. First is the class name, second is the C<YAML> data string. Should return thawed data structure on success, undef on failure. Error message should be set using C<set_error()|CGI::Session::ErrorHandler/"set_error()"> | |||
| 60 | ||||
| 61 | =back | |||
| 62 | ||||
| 63 | =head1 SEE ALSO | |||
| 64 | ||||
| 65 | C<CGI::Session>, C<YAML>, C<YAML::Syck>. | |||
| 66 | ||||
| 67 | =cut |