http://search.cpan.org/src/JDUNCAN/Regexp-Copy-0.06/lib/Regexp/Copy.pm

##</code><code>##

package Regexp::Copy;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

use Regexp::Storable;

require Carp;
require Exporter;
require DynaLoader;
require AutoLoader;

@ISA = qw(Exporter DynaLoader);

@EXPORT = qw( );
@EXPORT_OK = qw(re_copy);
$VERSION = '0.06';


bootstrap Regexp::Copy $VERSION;

sub re_copy {
  for (@_) {
    if (uc(ref($_)) eq ref($_) && !$_->isa('Regexp')) {
      Carp::croak "parameters to re_copy must be blessed and isa(Regexp)";
    }
  }
  re_copy_xs(@_);
}


1;

__END__

##</code><code>##

re_copy_xs(@_);

##</code><code>##

some_function_xs

##</code><code>##

use Regexp::Storable;