view release on metacpan or  search on metacpan

lib/App/Plog.pm  view on Meta::CPAN

my $pid = open3($in, $out, $err, $command) ;
waitpid( $pid, 0 );

if ($CHILD_ERROR >> $CHILD_ERROR_SHIFT)
	{
	croak "Error: can't execute '$command' $error_message: $CHILD_ERROR\n" ;
	}

# todo: check wantarray
my $text = do { local $INPUT_RECORD_SEPARATOR = undef ; <$out> ; } ;

return $text ;
}

package App::Plog ;

use strict;
use warnings ;
use Carp qw(carp croak confess) ;

lib/App/Plog.pm  view on Meta::CPAN

my $date_html = $self->get_entry_date_html($date) ;

my $version_html = $version > 1 ? "<br> version: $version" : $EMPTY_STRING ;

my ($entry_html, $reader, $writer) = (q{Error: App::Plog::Renderer::HTML::Asciidoc can't run command 'asciidoc'!}) ;

if (defined $self->{ascii_doc_version})
	{
	my $pid = open2($reader, $writer, 'asciidoc -o - -s -' );

	local $INPUT_RECORD_SEPARATOR = undef ;
	print {$writer} $text ; close $writer ;
	$entry_html = <$reader>; close $reader ;
	}

	$entry_html = <<"EOE" ;
	<tr>
	  <td width="100" valign="top"> <font size="1"> <br> $date_html $version_html </td>
	  <td></td>
	  <td width="540"> 
		  <a name = '$commit'> </a>