I'd stay away from that syntax since it looks like $self->{_dbh} is the argument of my while it's really just $self.

my $self->{_dbh} = $dbh;
[download]

means

(my $self)->{_dbh} = $dbh;
[download]

but that's not what people see.