view release on metacpan or  search on metacpan

Slovak.pm  view on Meta::CPAN

package Acme::CPANAuthors::Slovak;

use strict;
use utf8;
use warnings;

our $VERSION = 0.28;

# Modules.
use Acme::CPANAuthors::Register(
	'BARNEY' => 'Branislav Zahradník',
	'JKUTEJ' => 'Jozef Kutej',
	'KOZO' => "Ján 'Kozo' Vajda",
	'LKUNDRAK' => 'Lubomir Rintel',
	'PALI' => 'Pavol Rohár',
	'SAMSK' => 'Samuel Behan',
);

1;

__END__

=pod

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Slovak - We are Slovak CPAN authors.

=head1 SYNOPSIS

 use Acme::CPANAuthors;

 my $authors = Acme::CPANAuthors->new('Slovak');

inc/Module/Install/ReadmeFromPod.pm  view on Meta::CPAN

}


sub _readme_htm {
  my ($self, $in_file, $out_file, $options) = @_;
  $out_file ||= 'README.htm';
  require Pod::Html;
  my ($o) = capture {
    Pod::Html::pod2html(
      "--infile=$in_file",
      "--outfile=-",
      @$options,
    );
  };
  io->file($out_file)->print($o);
  # Remove temporary files if needed
  for my $file ('pod2htmd.tmp', 'pod2htmi.tmp') {
    if (-e $file) {
      unlink $file or warn "Warning: Could not remove file '$file'.\n$!\n";
    }
  }

t/Acme-CPANAuthors-Slovak/04-authors.t  view on Meta::CPAN

use strict;
use utf8;
use warnings;

use Acme::CPANAuthors::Slovak;
use Test::More 'tests' => 2;
use Test::NoWarnings;

# Test.
my %ret = Acme::CPANAuthors::Slovak->authors;
my %right_ret = (
	'BARNEY' => 'Branislav Zahradník',