File Coverage

blib/lib/UnicodeOperators.pm

Criterion	Covered	Total	%
statement	19	25	76.0
branch	2	8	25.0
condition			n/a
subroutine	5	6	83.3
pod	0	2	0.0
total	26	41	63.4

#!/usr/bin/perl
#-------------------------------------------------------------------------------
# Perl source filter to filter Unicode representations of some operators
# Philip R Brenan at gmail dot com, Appa Apps Ltd, 2016
#-------------------------------------------------------------------------------

package UnicodeOperators;
require v5.16.0;
use warnings FATAL => qw(all);
use strict;
use Filter::Util::Call;
our $VERSION = '20170808';                                                      # Started: Monday 19 September 2016

sub import
 {my ($type) = @_;
  my ($ref) = [];
  filter_add(bless $ref);
 }

sub filter
 {my ($self) = @_;
  my $status = filter_read();
  if ($status > 0)
   {s/\xE2\x88\x99/->/gs;
    s/\xE2\x96\xBA/=>/gs;
    s/\xE2\x97\x8B/=~/gs;
   }
  $status
 }


1;

=encoding utf-8

=head1 Name

UnicodeOperators - Unicode versions of some Perl operators

=head1 Synopsis

 use UnicodeOperators;

 say STDERR sub {$_[0]}∙(2), {a►1, b►2, c►3}∙{a}, "aaa" ○ s/a/b/gsr;

 # 21bbb

=head1 Description

 Replace -> with ∙, => with ► and =~ with ○

=head1 Installation

Standard Module::Build process for building and installing modules:

  perl Build.PL
  ./Build
  ./Build test
  ./Build install

=head1 Author

[e-mail]

http://www.appaapps.com

=head1 Copyright

Copyright (c) 2016 Philip R Brenan.

This module is free software. It may be used, redistributed and/or
modified under the same terms as Perl itself.

=cut

sub test
 {my $p = __PACKAGE__;
  return if eval "eof(${p}::DATA)";
  my $s = eval "join('', <${p}::DATA>)";
  $@ and die $@;
  eval $s;
  $@ and die $@;
 }

test unless caller;

1;