[perl5.git] / lib / perl5db / t / test-m-statement-1

use strict;
use warnings;

package MyClass;

sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init(@_);

    return $self;
}

sub _init
{
    my $self = shift;

    $self->{foo} = 'bar';

    return;
}

sub greet
{
    my ($self, $msg) = @_;

    print "$msg - $self->{foo}\n";

    return;
}

1;

package main;

my $obj = MyClass->new;

$obj->greet("Hello");

1;
Commit	Line	Data
fedbbdd5 SF	1	use strict;
	2	use warnings;
	3
	4	package MyClass;
	5
	6	sub new
	7	{
	8	my $class = shift;
	9
	10	my $self = bless {}, $class;
	11
	12	$self->_init(@_);
	13
	14	return $self;
	15	}
	16
	17	sub _init
	18	{
	19	my $self = shift;
	20
	21	$self->{foo} = 'bar';
	22
	23	return;
	24	}
	25
	26	sub greet
	27	{
	28	my ($self, $msg) = @_;
	29
	30	print "$msg - $self->{foo}\n";
	31
	32	return;
	33	}
	34
	35	1;
	36
	37	package main;
	38
	39	my $obj = MyClass->new;
	40
	41	$obj->greet("Hello");
	42
	43	1;