#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Simple;
use Sub::Mutate qw(
        sub_body_type
        sub_closure_role
        sub_is_lvalue
        sub_is_constant
        sub_is_method
        mutate_sub_is_method
        sub_is_debuggable
        mutate_sub_is_debuggable
        sub_prototype
        mutate_sub_prototype
);

my $sub = \&Dumper;

print my $type = sub_body_type($sub), "\n";
print $type = sub_closure_role($sub), "\n";
if ( sub_is_lvalue($sub) ) {
        print "sub is an lvalue\n";
}
else {
        print "sub is not an lvalue\n";
}
if ( sub_is_constant($sub)) {
        print "sub is a constant\n";
}
else {
        print "sub is not a constant\n";
}
if ( sub_is_method($sub)) {
        print "sub is a method\n";
}
else {
        print "sub is not a method\n";
}
if ( sub_is_debuggable($sub)) {
        print "sub is debuggable\n";
}
else {
        print "sub is not debuggable\n";
}
my $proto = sub_prototype($sub);
print Dumper($proto);

sub Dumper {
        return Data::Dumper->Dump([@_]);
}