summaryrefslogtreecommitdiff
path: root/lib/Temp/File-Temp-0.12/misc/benchmark.pl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Temp/File-Temp-0.12/misc/benchmark.pl')
-rwxr-xr-xlib/Temp/File-Temp-0.12/misc/benchmark.pl42
1 files changed, 0 insertions, 42 deletions
diff --git a/lib/Temp/File-Temp-0.12/misc/benchmark.pl b/lib/Temp/File-Temp-0.12/misc/benchmark.pl
deleted file mode 100755
index bdea837..0000000
--- a/lib/Temp/File-Temp-0.12/misc/benchmark.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/usr/local/bin/perl -w
-
-# Simple benchmark of temporary file creation (no filename just a handle)
-# Uses the following:
-# - temporary file creation created by IO::File
-# - temporary file creation using File::Temp (uses security checking)
-# - A roll-our-own wrapper on top of POSIX::tempnam (essentially
-# a compact form of File::Temp without all the extras) taken from
-# the Perl cookbook
-
-# Would not
-
-use strict;
-use Benchmark;
-use IO::File;
-use POSIX qw/ tmpnam /;
-use File::Temp qw/ tempfile /;
-use Symbol;
-
-# Benchmark IO::File and File::Temp
-
-timethese(10000, {
- 'IO::File' => sub {
- my $fh = IO::File::new_tmpfile || die $ !;
- },
- 'File::Temp::tempfile' => sub {
- my $fh = tempfile() || die $ !;
- },
- 'POSIX::tmpnam' => sub {
- my $fh = gensym;;
- my $name;
- for (;;) {
- $name = tmpnam();
- sysopen( $fh, $name, O_RDWR | O_CREAT | O_EXCL )
- && last;
- }
- unlink $name;
- }
- }
- );
-
-