--- trunk/lib/Frey.pm	2008/11/19 15:28:23	455
+++ trunk/lib/Frey.pm	2008/11/19 19:59:52	468
@@ -1,7 +1,7 @@
 package Frey;
 use Moose;
 
-our $VERSION = "0.20";
+our $VERSION = "0.21";
 
 has 'debug' => (
 	is => 'rw',
@@ -57,4 +57,19 @@
 
 =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;