#!/usr/bin/perl

use strict;
use warnings;

package Foo;

sub new {
	my $class = shift;
	bless {@_}, $class;
}

package main;

use Data::Dump 'pp';

sub Foo::guts {
	my $self = shift;
	pp $self;
}

my $foo = Foo->new(foo => 'bar');
$foo->guts;