#!/usr/bin/perl -w
use strict;
package Foo;
use Carp;

sub bar {
	carp "This is a test";
}

package main;
use Test::More 'no_plan';
use constant MODULE => 'Foo';

{
  my $carp;
  local *Foo::carp = sub { $carp = join '', @_ };
  can_ok( MODULE, 'bar' );
  Foo::bar();
  ok( $carp, 'Calling Foo::bar() should call carp()' );
  is( $carp, 'This is a test', '... with the correct error message' );
}