File Coverage

blib/lib/Venus/Role/Patchable.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition	2	3	66.6
subroutine	6	6	100.0
pod	1	2	50.0
total	25	27	92.5

package Venus::Role::Patchable;

use 5.018;

use strict;
use warnings;

use Venus::Role 'with';

# METHODS

sub patch {
  my ($self, $name, $code) = @_;

  require Venus::Space;

  my $space = Venus::Space->new(ref $self || $self);

  return $space->patch($name, $code);
}

# EXPORTS

sub EXPORT {
  ['patch']
}

1;



=head1 NAME

Venus::Role::Patchable - Patchable Role

=cut

=head1 ABSTRACT

Patchable Role for Perl 5

=cut

=head1 SYNOPSIS

  package Example;

  use Venus::Class;

  with 'Venus::Role::Patchable';

  package main;

  my $example = Example->new;

  # my $patch = $example->patch;

  # bless(.., "Venus::Space")

=cut

=head1 DESCRIPTION

This package modifies the consuming package and provides methods for patching
(or monkey-patching) routines in the calling package using
L.

=cut

=head1 METHODS

This package provides the following methods:

=cut

=head2 patch

  patch(string $name, coderef $code) (Venus::Space)

The patch method overwrites the named subroutine in the calling package using
L returning a L object that can be used to
restore the original subroutine when L is called.

I>

=over 4

=item patch example 1

  package Example;

  use Venus::Class;

  with 'Venus::Role::Patchable';

  sub test {
    my ($self, @args) = @_;

    return [$self, @args];
  }

  package main;

  my $example = Example->new;

  my $patch = $example->patch('test', sub {
    my ($next, @args) = @_;

    return ['patched', @{$next->(@args)}];
  });

  # bless(.., "Venus::Space")

=back

=cut

=head1 AUTHORS

Awncorp, C

=cut

=head1 LICENSE

Copyright (C) 2000, Awncorp, C.

This program is free software, you can redistribute it and/or modify it under
the terms of the Apache license version 2.0.

=cut