$SIG{__WARN__} = sub { push(@{ $self->{'sub_warnings'} }, shift); 
+} if $self->{'verbose'} == 0