DbLibTry.pm

package DbLibTry;

use Mojo::Base '-strict';
use DBI;

has dbh => sub { 
  DBI->connect( "DBI:SQLite:dbname=songdb.sqlite3", q{}, q{}, {RaiseError => 1} )
    or die $DBI::errstr;
};

sub get_all_songs {
    my $self = shift;
    return $self->dbh->selectall_hashref('select * from songs;', 'id'); # Assuming your id field is called "id"
}

test.t

use DbLibTry;

my $test_dbh = DBI->connect( "DBI:SQLite:dbname=test.sqlite3" );
# Insert some test data
$test_dbh->do( "INSERT INTO songs (id, name) VALUES (1, 'hello')" );

my $obj = DbLibTry->new( dbh => $test_dbh );
$obj->get_all_songs;