lib/FLAT/Regex/Transform.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

package FLAT::Regex::Transform;

# Extends FLAT::Regex::WithExtraOps with PRegex transformations 
# (i.e., reductions based on: w*v & a*b

use base 'FLAT::Regex::WithExtraOps';

sub new {
    my $pkg = shift;
    my $self = $pkg->SUPER::new(@_);
    return $self;
}

# Ideally, the transformation should be implemented as an iterator.  This
# approach will be finite for shuffles with NO closed strings, but will carry on
# indefinitely for the shuffle of strings where at least one of the strings is closed

1;