binmode
STDOUT,
':encoding(UTF-8)'
;
binmode
STDERR,
':encoding(UTF-8)'
;
use
feature
'signatures'
;
no
warnings
"experimental::signatures"
;
sub
new {
if
(
@_
== 2) {
return
new Pootle::Client({
baseUrl
=>
$_
[0],
credentials
=>
$_
[1]});
}
}
sub
languages {
return
t::Mock::Resource::Languages::all(
@_
);
}
sub
language {
return
t::Mock::Resource::Languages::one(
@_
);
}
sub
projects {
return
t::Mock::Resource::Projects::all(
@_
);
}
sub
project {
return
t::Mock::Resource::Projects::one(
@_
);
}
sub
translationProjects {
return
t::Mock::Resource::TranslationProjects::all(
@_
);
}
sub
translationProject {
return
t::Mock::Resource::TranslationProjects::one(
@_
);
}
sub
stores {
return
t::Mock::Resource::Stores::all(
@_
);
}
sub
store {
return
t::Mock::Resource::Stores::one(
@_
);
}
sub
unit {
return
t::Mock::Resource::Units::one(
@_
);
}
sub
cleanup(
$papi
) {
$papi
->flushCaches();
}
1;