binmode
STDOUT,
':encoding(UTF-8)'
;
binmode
STDERR,
':encoding(UTF-8)'
;
use
feature
'signatures'
;
no
warnings
"experimental::signatures"
;
use
base(
'Pootle::Resource'
);
my
$l
=
bless
({},
'Pootle::Logger'
);
sub
new(
$class
,
@params
) {
$l
->debug(
"Initializing "
.__PACKAGE__.
" with parameters: "
.
$l
->flatten(
@params
))
if
$l
->is_debug();
my
%self
= validate(
@params
, {
checkstyle
=> 1,
code
=> 1,
description
=> 1,
fullname
=> 1,
ignoredfiles
=> 1,
localfiletype
=> 1,
resource_uri
=> 1,
source_language
=> 1,
translation_projects
=> {
type
=> ARRAYREF },
treestyle
=> 1,
});
my
$s
=
bless
(\
%self
,
$class
);
return
$s
;
}
sub
checkstyle(
$s
) {
return
$s
->{checkstyle} }
sub
code(
$s
) {
return
$s
->{code} }
sub
description(
$s
) {
return
$s
->{description} }
sub
fullname(
$s
) {
return
$s
->{fullname} }
sub
ignoredfiles(
$s
) {
return
$s
->{ignoredfiles} }
sub
localfiletype(
$s
) {
return
$s
->{localfiletype} }
sub
resource_uri(
$s
) {
return
$s
->{resource_uri} }
sub
source_language(
$s
) {
return
$s
->{source_language} }
sub
translation_projects(
$s
) {
return
$s
->{translation_projects} }
sub
treestyle(
$s
) {
return
$s
->{treestyle} }
1;