package CGI::Builder ; $VERSION = 1.2 ; ; use strict ; use 5.006_001 ; use Carp ; $Carp::Internal{+__PACKAGE__}++ ; $Carp::Internal{'CGI::Builder::_'}++ ; use CGI::Builder::Const qw| :all | ; use IO::Util ; sub capture { my ($s, $h, @args) = @_ ; IO::Util::capture{ $s->$h(@args) } }