File Coverage

blib/lib/String/Obfuscate/Base64/URL.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	33	33	100.0

use v5.20;
use warnings;
use experimental 'signatures';

package String::Obfuscate::Base64::URL {
  use parent 'String::Obfuscate::Base64';

  # While MIME::Base64 does have a URL mode, it is pure-perl
  # so might as well to do it manually

  sub obfuscate ($self, $str) {
    $str = $self->SUPER::obfuscate($str);
    $str =~ tr`+/=\n`-_`d; # + to - and / to _ and delete newline and =
    $str;
  }

  sub deobfuscate ($self, $str) {
    $str =~ tr`-_`+/`;
    $str .= '=' while length($str) % 4;
    $self->SUPER::deobfuscate($str);
  }
}

1;