← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:08 2021

Filename/usr/local/lib/perl5/site_perl/mach/5.32/Unicode/GCString.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sUnicode::GCString::::BEGIN@11Unicode::GCString::BEGIN@11
0000s0sUnicode::GCString::::BEGIN@12Unicode::GCString::BEGIN@12
0000s0sUnicode::GCString::::BEGIN@13Unicode::GCString::BEGIN@13
0000s0sUnicode::GCString::::BEGIN@16Unicode::GCString::BEGIN@16
0000s0sUnicode::GCString::::BEGIN@24Unicode::GCString::BEGIN@24
0000s0sUnicode::GCString::::BEGIN@32Unicode::GCString::BEGIN@32
0000s0sUnicode::GCString::::__ANON__Unicode::GCString::__ANON__ (xsub)
0000s0sUnicode::GCString::::as_arrayrefUnicode::GCString::as_arrayref
0000s0sUnicode::GCString::::newUnicode::GCString::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#-*-perl-*-
2
3package Unicode::GCString;
4require 5.008;
5
6=encoding utf-8
7
8=cut
9
10### Pragmas:
11use strict;
12use warnings;
13use vars qw($VERSION @EXPORT_OK @ISA);
14
15### Exporting:
16use Exporter;
17our @EXPORT_OK = qw();
18our %EXPORT_TAGS = ('all' => [@EXPORT_OK]);
19
20### Inheritance:
21our @ISA = qw(Exporter);
22
23### Other modules:
24use Unicode::LineBreak;
25
26### Globals
27
28# The package version
29our $VERSION = '2013.10';
30
31use overload
32 '@{}' => \&as_arrayref,
33 '${}' => \&as_scalarref,
34 '""' => \&as_string,
35 '.' => \&concat,
36 #XXX'.=' => \&concat, #FIXME:segfault
37 'cmp' => \&cmp,
38 '<>' => \&next,
39 ;
40
41sub new {
42 my $class = shift;
43
44 my $self;
45 if (scalar @_ <= 2) {
46 $self = __PACKAGE__->_new(@_);
47 } else {
48 my $str = shift;
49 my $lb = Unicode::LineBreak->new(@_);
50 $self = __PACKAGE__->_new($str, $lb);
51 }
52 bless $self, $class;
53}
54
55sub as_arrayref {
56 my @a = shift->as_array;
57 return \@a;
58}
59
601;