File | /home/tamil/util/marc-moose/lib/MARC/Moose/Field/Control.pm |
Statements Executed | 12 |
Total Time | 0.0003393 seconds |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
0 | 0 | 0 | 0s | 0s | BEGIN | MARC::Moose::Field::Control::
0 | 0 | 0 | 0s | 0s | __ANON__[:15] | MARC::Moose::Field::Control::
Line | Stmts. | Exclusive Time | Avg. | Code |
---|---|---|---|---|
1 | package MARC::Moose::Field::Control; | |||
2 | # ABSTRACT: Control Marc field (tag < 010) | |||
3 | ||||
4 | 3 | 30µs | 10µs | use namespace::autoclean; # spent 59µs making 1 call to namespace::autoclean::import |
5 | 3 | 145µs | 48µs | use Moose; # spent 5.62ms making 1 call to Moose::Exporter::__ANON__[/usr/local/lib/perl/5.10.0/Moose/Exporter.pm:425] |
6 | ||||
7 | 1 | 7µs | 7µs | extends 'MARC::Moose::Field'; # spent 14.3ms making 1 call to Moose::extends |
8 | ||||
9 | 1 | 7µs | 7µs | has value => ( is => 'rw', isa => 'Str' ); # spent 2.31ms making 1 call to Moose::has |
10 | ||||
11 | override 'as_formatted' => sub { | |||
12 | my $self = shift; | |||
13 | ||||
14 | join ' ', ( $self->tag, $self->value ); | |||
15 | 1 | 13µs | 13µs | }; # spent 884µs making 1 call to Moose::override |
16 | ||||
17 | 1 | 94µs | 94µs | __PACKAGE__->meta->make_immutable; # spent 4.07ms making 1 call to Class::MOP::Class::make_immutable
# spent 109µs making 1 call to MARC::Moose::Field::Control::meta |
18 | ||||
19 | 1 | 33µs | 33µs | 1; |
20 | 1 | 11µs | 11µs |