view release on metacpan or  search on metacpan

bin/ct2pod.pl  view on Meta::CPAN

		    (my $class = $entry) =~ s{\$\*}{};
		    $class =~ s{::.*?$}{};
		    ($Data::Dumper::Varname = "$entry") =~ s{\*}{};
		    print Data::Dumper->Dump([ ${*{$entry}{SCALAR}} ], [$class]);
		}
	    }
	}
    }
}

sub read_pod(\*) {
    my $fh = shift;

    my @output;
    while ( defined <$fh> ) {
	push @output, $_;
    }
    close $fh;

    if ( $? ) {
	barf "sub-process ".($?&255 ? "killed by signal $?"