File: storable.ext

package info (click to toggle)
librose-db-perl 0.744-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 632 kB
  • ctags: 428
  • sloc: perl: 9,218; makefile: 10
file content (19 lines) | stat: -rw-r--r-- 292 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
#!/usr/bin/perl

use lib 'lib';

use FindBin qw($Bin);

require 't/test-lib.pl';

use Storable;

my $frozen_file = "$Bin/frozen";

my $thawed = Storable::retrieve($frozen_file);

$thawed->dbh->do('DROP TABLE rose_db_storable_test');

print "dropped\n";

unlink($frozen_file); # ignore errors