view release on metacpan or  search on metacpan

DC.pm  view on Meta::CPAN

sub asxml($) {
   local $_ = $_[0];

   s/&/&/g;
   s/>/>/g;
   s/</&lt;/g;

   $_
}

sub background(&;&) {
   my ($bg, $cb) = @_;

   my ($fh_r, $fh_w) = AnyEvent::Util::portable_socketpair
     or die "unable to create background socketpair: $!";

   my $pid = fork;

   if (defined $pid && !$pid) {
      local $SIG{__DIE__};