use
strict;
use
warnings;
our
@EXPORT
=
do
{
no
strict
'refs'
;
grep
{
$_
!~
qr{ \A [A-Z]+ \z }
xms }
keys
%{ __PACKAGE__ .
'::'
};
};
sub
copy_reference_get {
my
(
$self
,
$path
) =
@_
;
my
$params
= {
path
=>
$path
,
};
$self
->api({
params
=>
$params
,
});
}
sub
copy_reference_save {
my
(
$self
,
$copy_reference
,
$path
) =
@_
;
my
$params
= {
copy_reference
=>
$copy_reference
,
path
=>
$path
,
};
$self
->api({
params
=>
$params
,
});
}
1;