perl-flat-cvs-notify

[<per...@li...>]

Update of /cvsroot/perl-flat/perl-flat/lib/FLAT/Regex
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31198/lib/FLAT/Regex

Modified Files:
	WithExtraOps.pm 
Log Message:
working on pfa stuff


Index: WithExtraOps.pm
===================================================================
RCS file: /cvsroot/perl-flat/perl-flat/lib/FLAT/Regex/WithExtraOps.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** WithExtraOps.pm	12 Mar 2006 05:03:50 -0000	1.5
--- WithExtraOps.pm	7 Apr 2006 20:14:34 -0000	1.6
***************
*** 80,91 ****
  }
  
- # Implement
  sub as_pfa {
      my $self = shift;
  }
  
- # Implement?
  sub reverse {
!     my $self = shift;
  }
  
--- 80,90 ----
  }
  
  sub as_pfa {
      my $self = shift;
+     $self->members->as_pfa->shuffle;
  }
  
  sub reverse {
!     croak "Not implemented for shuffled regexes, but it would be cool!";
  }