# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use JSON qw( decode_json encode_json );
use Try::Tiny qw( catch try );
use MIME::Base64 qw( decode_base64 );
use POSIX qw( floor );
-