view release on metacpan or  search on metacpan

bin/brn  view on Meta::CPAN

package main;
use strict;

# use this module BEFORE declaring use utf8, because it isn't.
use Config::IniFiles;

use utf8;
use feature 'unicode_strings';
use open IO => ":encoding(UTF-8)";
binmode STDOUT, ":encoding(UTF-8)";
binmode STDERR, ":encoding(UTF-8)";
binmode STDIN,  ":encoding(UTF-8)";

BEGIN
  { $main::VERSION = substr '$$Version: 0.07 $$', 11, -3; }

use FindBin qw($RealBin);
FindBin::again(); # Other modules can call FindBin too.

use lib "$RealBin/../lib"; # Relative path to our libraries.

use Contextual::Return;