#!/usr/bin/perl -w
use strict;
use Test::More tests => 4;
use Pod::Coverage ();

my $pc = Pod::Coverage->new();
isa_ok( $pc, 'Pod::Coverage' );

package wibble;
sub bar {};
package main;
sub foo {}
sub baz::baz {};
*bar = \&wibble::bar;
*baz = \&baz::baz;

is ( $pc->_CvGV(\&foo), '*main::foo',   'foo checks out' );
is ( $pc->_CvGV(\&bar), '*wibble::bar', 'bar looks right' );
is ( $pc->_CvGV(\&baz), '*baz::baz',    'baz too' );