Select Code to Download

  my $ccn = Text::Hidden->new( "1234567887654321" );

  say STDERR "DEBUG: Got a CCN ($ccn)";        # DEBUG: Got a CCN (XXX
+XXXXXXXXXXXXX)

  say "The real CCN: ", $ccn->unhidden_value;  # The real CCN: 1234567
+887654321

  my $ccn = Text::Hidden->new( "1234567887654321",
      obfuscator => sub { "XXXXXXXXXXXX".substr($_[0], -4) },
  );

  my $passwd = Text::Hidden->new( "12345",
      auto_unhide => [
...
      # similar, but search call stack (not just immediate caller) for
+ a match
      auto_unhide_recursive => [ ... ],
  );

  my $passwd = Text::Hidden->new( "12345",
      debug => 1,
      trace => 0, # set to 1 to show entire call stack
  );

  say $passwd;
  say $passwd->unhidden_value;
  Some::Module->login( $user, $passwd );

  Stringification to hidden value at main::(5)
  Explicit cast to unhidden value at main::(6)
  Stringification to hidden value at Some::Module::Authentication::log
+ger(14)
  Stringification to hidden value at Some::Module::Authentication::aut
+henticate(43)

  my $ccn = Text::Hidden->new( "1234567887654321",
      default => "unhidden",
      hide_from_recursive => [ qr/^DB[ID]/ ],
  );

  { my $key = $ccn->localized_default_unhidden;

...
  { my $key = $ccn->localized_default_hidden;
    # ...
  }

  $SIG{__DIE__} = sub {
      local $Text::Hidden::Force = "hidden";
      # ...
  };

package SecureString;
use 5.010;
...
SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE SOFTWARE TO OPER
+ATE
WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN
ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.