sub method2 { my $self = shift; _method1( $self ); }