← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:57:03 2010

File /usr/local/lib/perl5/5.8.8/i686-linux/IO/File.pm
Statements Executed 32
Statement Execution Time 3.38ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
6812313µs313µsIO::File::::CORE:matchIO::File::CORE:match (opcode)
0000s0sIO::File::::BEGINIO::File::BEGIN
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 = new IO::File;
14 if ($fh->open("< file")) {
15 print <$fh>;
16 $fh->close;
17 }
18
19 $fh = new IO::File "> file";
20 if (defined $fh) {
21 print $fh "bar\n";
22 $fh->close;
23 }
24
25 $fh = new IO::File "file", "r";
26 if (defined $fh) {
27 print <$fh>;
28 undef $fh; # automatically closes the file
29 }
30
31 $fh = new IO::File "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
127367µsuse 5.006_001;
1283132µs125µsuse strict;
# spent 25µs making 1 call to strict::import
12917µsour($VERSION, @EXPORT, @EXPORT_OK, @ISA);
130391µs1245µsuse Carp;
# spent 245µs making 1 call to Exporter::import
1313422µs1271µsuse Symbol;
# spent 271µs making 1 call to Exporter::import
1323390µsuse SelectSaver;
1333347µs1239µsuse IO::Seekable;
# spent 239µs making 1 call to Exporter::import
13431.04msuse File::Spec;
135
13615µsrequire Exporter;
137
138110µs@ISA = qw(IO::Handle IO::Seekable Exporter);
139
14015µs$VERSION = "1.13";
141
14217µs@EXPORT = @IO::Seekable::EXPORT;
143
144110µseval {
145 # Make all Fcntl O_XXX constants available for importing
14615µs require Fcntl;
1471760µs68313µs my @O = grep /^O_/, @Fcntl::EXPORT;
# spent 313µs making 68 calls to IO::File::CORE:match, avg 5µs/call
148132µs11.22ms Fcntl->import(@O); # first we import what we want to export
# spent 1.22ms making 1 call to Exporter::import
149125µs push(@EXPORT, @O);
150};
151
152################################################
153## Constructor
154##
155
156sub new {
157 my $type = shift;
158 my $class = ref($type) || $type || "IO::File";
159 @_ >= 0 && @_ <= 3
160 or croak "usage: new $class [FILENAME [,MODE [,PERMS]]]";
161 my $fh = $class->SUPER::new();
162 if (@_) {
163 $fh->open(@_)
164 or return undef;
165 }
166 $fh;
167}
168
169################################################
170## Open
171##
172
173sub open {
174 @_ >= 2 && @_ <= 4 or croak 'usage: $fh->open(FILENAME [,MODE [,PERMS]])';
175 my ($fh, $file) = @_;
176 if (@_ > 2) {
177 my ($mode, $perms) = @_[2, 3];
178 if ($mode =~ /^\d+$/) {
179 defined $perms or $perms = 0666;
180 return sysopen($fh, $file, $mode, $perms);
181 } elsif ($mode =~ /:/) {
182 return open($fh, $mode, $file) if @_ == 3;
183 croak 'usage: $fh->open(FILENAME, IOLAYERS)';
184 }
185 if (defined($file) && length($file)
186 && ! File::Spec->file_name_is_absolute($file))
187 {
188 $file = File::Spec->rel2abs($file);
189 }
190 $file = IO::Handle::_open_mode_string($mode) . " $file\0";
191 }
192 open($fh, $file);
193}
194
195################################################
196## Binmode
197##
198
199sub binmode {
200 ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
201
202 my($fh, $layer) = @_;
203
204 return binmode $$fh unless $layer;
205 return binmode $$fh, $layer;
206}
207
208126µs1;
# spent 313µs within IO::File::CORE:match which was called 68 times, avg 5µs/call: # 68 times (313µs+0s) by base::import at line 147 of IO/File.pm, avg 5µs/call
sub IO::File::CORE:match; # xsub