Nicht benötigte Argumente trotzem in eine Variable kopieren? - #188025 (Allgemeines zu Perl)

Kuerbis

2018-02-22 13:30

User since
2011-03-20
938 Artikel
BenutzerIn
[default_avatar]

Wenn ich mir das jetzt nochmal anschaue, dann habe ich den Eindruck, dass ich nicht genug Informationen geliefert habe.
Es geht hier um ein kurzes Beispiel für das hier beschriebene API.

Hier das Beispiel mit den - wie hier vorgeschlagen - expliziten $self:

Code (perl): (dl )

package App::DBBrowser::DB::MyPlugin;
use warnings;
use strict;
use DBI;

sub new {
    my ( $class, $info ) = @_;
    bless $info, $class;
}

sub driver {
    my ( $self ) = @_;
    return 'SQLite';
}

sub db_handle {
    my ( $self, $db ) = @_;
    my $dbh = DBI->connect( "DBI:SQLite:dbname=$db", '', '', {
        RaiseError      => 1,
        PrintError      => 0,
        sqlite_unicode  => 1,
    }) or die $DBI::errstr;
    return $dbh;
}

sub databases {
    my ( $self ) = @_;
    return [ '/home/me/demo.sqlite' ];
}

1;