← Index
NYTProf Performance Profile   « line view »
For split.pl
  Run on Thu Apr 20 02:05:47 2023
Reported on Thu Apr 20 18:31:09 2023

Filename/home/hejohns/perl5/lib/perl5/x86_64-linux-gnu-thread-multi/IO/File.pm
StatementsExecuted 22 statements in 491µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
11186µs87µsIO::File::::BEGIN@128IO::File::BEGIN@128
1119µs9µsIO::File::::BEGIN@127IO::File::BEGIN@127
1116µs6µsIO::File::::BEGIN@131IO::File::BEGIN@131
68115µs5µsIO::File::::CORE:matchIO::File::CORE:match (opcode)
1114µs21µsIO::File::::BEGIN@129IO::File::BEGIN@129
1114µs14µsIO::File::::BEGIN@132IO::File::BEGIN@132
1113µs18µsIO::File::::BEGIN@130IO::File::BEGIN@130
111300ns300nsIO::File::::__ANON__IO::File::__ANON__ (xsub)
0000s0sIO::File::::binmodeIO::File::binmode
0000s0sIO::File::::newIO::File::new
0000s0sIO::File::::openIO::File::open
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1#
2
3package IO::File;
4
5=head1 NAME
6
7IO::File - supply object methods for filehandles
8
9=head1 SYNOPSIS
10
11 use IO::File;
12
13 $fh = IO::File->new();
14 if ($fh->open("< file")) {
15 print <$fh>;
16 $fh->close;
17 }
18
19 $fh = IO::File->new("> file");
20 if (defined $fh) {
21 print $fh "bar\n";
22 $fh->close;
23 }
24
25 $fh = IO::File->new("file", "r");
26 if (defined $fh) {
27 print <$fh>;
28 undef $fh; # automatically closes the file
29 }
30
31 $fh = IO::File->new("file", O_WRONLY|O_APPEND);
32 if (defined $fh) {
33 print $fh "corge\n";
34
35 $pos = $fh->getpos;
36 $fh->setpos($pos);
37
38 undef $fh; # automatically closes the file
39 }
40
41 autoflush STDOUT 1;
42
43=head1 DESCRIPTION
44
45C<IO::File> inherits from C<IO::Handle> and C<IO::Seekable>. It extends
46these classes with methods that are specific to file handles.
47
48=head1 CONSTRUCTOR
49
50=over 4
51
52=item new ( FILENAME [,MODE [,PERMS]] )
53
54Creates an C<IO::File>. If it receives any parameters, they are passed to
55the method C<open>; if the open fails, the object is destroyed. Otherwise,
56it is returned to the caller.
57
58=item new_tmpfile
59
60Creates an C<IO::File> opened for read/write on a newly created temporary
61file. On systems where this is possible, the temporary file is anonymous
62(i.e. it is unlinked after creation, but held open). If the temporary
63file cannot be created or opened, the C<IO::File> object is destroyed.
64Otherwise, it is returned to the caller.
65
66=back
67
68=head1 METHODS
69
70=over 4
71
72=item open( FILENAME [,MODE [,PERMS]] )
73
74=item open( FILENAME, IOLAYERS )
75
76C<open> accepts one, two or three parameters. With one parameter,
77it is just a front end for the built-in C<open> function. With two or three
78parameters, the first parameter is a filename that may include
79whitespace or other special characters, and the second parameter is
80the open mode, optionally followed by a file permission value.
81
82If C<IO::File::open> receives a Perl mode string ("E<gt>", "+E<lt>", etc.)
83or an ANSI C fopen() mode string ("w", "r+", etc.), it uses the basic
84Perl C<open> operator (but protects any special characters).
85
86If C<IO::File::open> is given a numeric mode, it passes that mode
87and the optional permissions value to the Perl C<sysopen> operator.
88The permissions default to 0666.
89
90If C<IO::File::open> is given a mode that includes the C<:> character,
91it passes all the three arguments to the three-argument C<open> operator.
92
93For convenience, C<IO::File> exports the O_XXX constants from the
94Fcntl module, if this module is available.
95
96=item binmode( [LAYER] )
97
98C<binmode> sets C<binmode> on the underlying C<IO> object, as documented
99in C<perldoc -f binmode>.
100
101C<binmode> accepts one optional parameter, which is the layer to be
102passed on to the C<binmode> call.
103
104=back
105
106=head1 NOTE
107
108Some operating systems may perform C<IO::File::new()> or C<IO::File::open()>
109on a directory without errors. This behavior is not portable and not
110suggested for use. Using C<opendir()> and C<readdir()> or C<IO::Dir> are
111suggested instead.
112
113=head1 SEE ALSO
114
115L<perlfunc>,
116L<perlop/"I/O Operators">,
117L<IO::Handle>,
118L<IO::Seekable>,
119L<IO::Dir>
120
121=head1 HISTORY
122
123Derived from FileHandle.pm by Graham Barr E<lt>F<gbarr@pobox.com>E<gt>.
124
125=cut
126
1272112µs19µs
# spent 9µs within IO::File::BEGIN@127 which was called: # once (9µs+0s) by IPC::Cmd::BEGIN@5 at line 127
use 5.008_001;
# spent 9µs making 1 call to IO::File::BEGIN@127
128218µs288µs
# spent 87µs (86+1) within IO::File::BEGIN@128 which was called: # once (86µs+1µs) by IPC::Cmd::BEGIN@5 at line 128
use strict;
# spent 87µs making 1 call to IO::File::BEGIN@128 # spent 1µs making 1 call to strict::import
129212µs239µs
# spent 21µs (4+17) within IO::File::BEGIN@129 which was called: # once (4µs+17µs) by IPC::Cmd::BEGIN@5 at line 129
use Carp;
# spent 21µs making 1 call to IO::File::BEGIN@129 # spent 17µs making 1 call to Exporter::import
130211µs234µs
# spent 18µs (3+15) within IO::File::BEGIN@130 which was called: # once (3µs+15µs) by IPC::Cmd::BEGIN@5 at line 130
use Symbol;
# spent 18µs making 1 call to IO::File::BEGIN@130 # spent 15µs making 1 call to Exporter::import
131215µs27µs
# spent 6µs (6+300ns) within IO::File::BEGIN@131 which was called: # once (6µs+300ns) by IPC::Cmd::BEGIN@5 at line 131
use SelectSaver;
# spent 6µs making 1 call to IO::File::BEGIN@131 # spent 300ns making 1 call to IO::File::__ANON__
1322260µs224µs
# spent 14µs (4+10) within IO::File::BEGIN@132 which was called: # once (4µs+10µs) by IPC::Cmd::BEGIN@5 at line 132
use IO::Seekable;
# spent 14µs making 1 call to IO::File::BEGIN@132 # spent 10µs making 1 call to Exporter::import
133
1341300nsrequire Exporter;
135
136110µsour @ISA = qw(IO::Handle IO::Seekable Exporter);
137
1381100nsour $VERSION = "1.48";
139
1401500nsour @EXPORT = @IO::Seekable::EXPORT;
141
1421200nseval {
143 # Make all Fcntl O_XXX constants available for importing
1441500ns require Fcntl;
145140µs685µs my @O = grep /^O_/, @Fcntl::EXPORT;
# spent 5µs making 68 calls to IO::File::CORE:match, avg 75ns/call
14611µs161µs Fcntl->import(@O); # first we import what we want to export
# spent 61µs making 1 call to Exporter::import
14713µs push(@EXPORT, @O);
148};
149
150################################################
151## Constructor
152##
153
154sub new {
155 my $type = shift;
156 my $class = ref($type) || $type || "IO::File";
157 @_ >= 0 && @_ <= 3
158 or croak "usage: $class->new([FILENAME [,MODE [,PERMS]]])";
159 my $fh = $class->SUPER::new();
160 if (@_) {
161 $fh->open(@_)
162 or return undef;
163 }
164 $fh;
165}
166
167################################################
168## Open
169##
170
171sub open {
172 @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
173 my ($fh, $file) = @_;
174 if (@_ > 2) {
175 my ($mode, $perms) = @_[2, 3];
176 if ($mode =~ /^\d+$/) {
177 defined $perms or $perms = 0666;
178 return sysopen($fh, $file, $mode, $perms);
179 } elsif ($mode =~ /:/) {
180 return open($fh, $mode, $file) if @_ == 3;
181 croak 'usage: $fh->open(FILENAME, IOLAYERS)';
182 } else {
183 return open($fh, IO::Handle::_open_mode_string($mode), $file);
184 }
185 }
186 open($fh, $file);
187}
188
189################################################
190## Binmode
191##
192
193sub binmode {
194 ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
195
196 my($fh, $layer) = @_;
197
198 return binmode $$fh unless $layer;
199 return binmode $$fh, $layer;
200}
201
20216µs1;
 
# spent 5µs within IO::File::CORE:match which was called 68 times, avg 75ns/call: # 68 times (5µs+0s) by IPC::Cmd::BEGIN@5 at line 145, avg 75ns/call
sub IO::File::CORE:match; # opcode
# spent 300ns within IO::File::__ANON__ which was called: # once (300ns+0s) by IO::File::BEGIN@131 at line 131
sub IO::File::__ANON__; # xsub
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.