use tt ( subs => [qw( io fm cv hv pvlv gv av bm pvmg pvnv pviv rv nv iv pv sv )] );
[% FOREACH sub IN subs %]

=item [% sub %]( OBJ )

Returns a boolean indicating whether OBJ is an instance of type B::[% sub %]. This respects any overridden ->isa methods.

=cut

sub [% sub %] {
    my $op = shift @_;
    return blessed($op) and $op->isa('B::[% sub %]');
}

[% END %]
no tt;