lib/PluginManager/Util.pm

   1 package PluginManager::Util;
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Temp;
   7 use Exporter;
   8
   9 our @EXPORT = qw(tempdir);
  10 use base qw(Exporter);
  11
  12 my $tmp_dir = undef;
  13
  14 sub tempdir {
  15         $tmp_dir ||= MT->config('TempDir');
  16         File::Temp::tempdir(@_, DIR => $tmp_dir);
  17 }
  18
  19 sub tempfile {
  20         $tmp_dir ||= MT->config('TempDir');
  21         File::Temp::tempfile(@_, DIR => $tmp_dir);
  22 }
  23
  24 1;