Sometimes I prefer to use some extra variables to make things more readable. This might be such a case:

    my $method1 = $obj -> method1;
    my $method2 = $obj -> method2;
    my $method3 = $obj -> method3;
    print "text text $method1 more text $method2 blah blah $method3\n"
+;
[download]

Abigail