--- trunk/lib/Frey.pm	2008/11/19 18:07:31	463
+++ trunk/lib/Frey.pm	2008/11/19 19:59:52	468
@@ -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;