--- trunk/lib/Frey.pm	2008/11/19 19:59:52	468
+++ trunk/lib/Frey.pm	2008/11/26 07:57:12	532
@@ -5,7 +5,7 @@
 
 has 'debug' => (
 	is => 'rw',
-	isa => 'Bool',
+	isa => 'Int',
 	default => 0,
 );
 
@@ -57,19 +57,4 @@
 
 =cut
 
-use Data::Dump qw/dump/;
-
-our @warnings;
-$SIG{__WARN__} = sub {
-	# emit original warning
-	warn(@_);
-
-	push @warnings, $_ foreach @_;
-};
-
-sub warnings {
-	#print STDERR "### warnings ",dump( @warnings );
-	@warnings;
-}
-
 1;