File Coverage

blib/lib/Batch/Interpreter/Locale/de_DE.pm

Criterion	Covered	Total	%
statement	8	20	40.0
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	11	35	31.4

package Batch::Interpreter::Locale::de_DE;

use v5.10;
use warnings;
use strict;

=head1 NAME

Batch::Interpreter::Locale::de_DE - German locale for Batch::Interpreter

=head1 SYNOPSIS

See Batch::Interpreter.

=cut

our $VERSION = 0.01;

sub format_date {
	my ($self, $year, $month, $day) = @_;
	return sprintf '%02d.%02d.%04d',
		$day, $month, $year;
}

sub format_time_short {
	my ($self, $hour, $min) = @_;
	return sprintf '%02d:%02d',
		$hour, $min;
}

sub format_time {
	my ($self, $hour, $min, $sec, $sec100) = @_;
	return sprintf '%02d:%02d:%02d,%02d',
		$hour, $min, $sec, $sec100;
}

sub format_file_timedate {
	my ($self, $year, $month, $day, $hour, $min) = @_;
	return sprintf '%02d.%02d.%04d  %02d:%02d',
		$day, $month, $year, $hour, $min;
}

sub format_file_timedate_for {
	my ($self, $year, $month, $day, $hour, $min) = @_;
	return sprintf '%02d.%02d.%04d %02d:%02d',
		$day, $month, $year, $hour, $min;
}


my %message = (
	'ECHO is ON.' => 'ECHO ist eingeschaltet (ON).',
	'ECHO is OFF.' => 'ECHO ist ausgeschaltet (OFF).',
	'More? ' => 'Mehr? ',
	'Press a key to continue . . .' =>
		'Drücken Sie eine beliebige Taste . . .',
);

my %strings = (
	message => \%message,
);

sub get_string {
	my ($self, $category, $key) = @_;
	return $strings{$category}{$key};
}

1;

__END__