# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
+use Storable qw(dclone);
use autouse 'Data::Dumper' => qw(Dumper);
=cut
sub get_barcode_types {
- return $barcode_types;
+ return dclone $barcode_types;
}
=head2 C4::Creators::Lib::get_label_types()
=cut
sub get_label_types {
- return $label_types;
+ return dclone $label_types;
}
=head2 C4::Creators::Lib::get_font_types()
=cut
sub get_font_types {
- return $font_types;
+ return dclone $font_types;
}
=head2 C4::Creators::Lib::get_text_justification_types()
=cut
sub get_text_justification_types {
- return $text_justification_types;
+ return dclone $text_justification_types;
}
=head2 C4::Creators::Lib::get_unit_values()
=cut
sub get_unit_values {
- return $unit_values;
+ return dclone $unit_values;
}
=head2 C4::Creators::Lib::get_output_formats()
=cut
sub get_output_formats {
- return $output_formats;
+ return dclone $output_formats;
}