package DB::User;
use base qw(DBIx::Class);
__PACKAGE__->load_components(qw(PK::Auto Core));
__PACKAGE__->table('user');
__PACKAGE__->add_columns(qw(id login password));
__PACKAGE__->set_primary_key('id');

package DB;
use base qw(DBIx::Class::Schema);
__PACKAGE__->load_classes(qw(User));

package main;
use strict;
use Data::Dumper;

my $schema = DB->connect( 
    'DBI:mysql:database:localhost',
    'username', 'password', {RaiseError => 1}
);

my @users = $schema->resultset('User')->all;
print Dumper($users[1]{_column_data});