GSP
Quick Navigator

Search Site

Unix VPS
A - Starter
B - Basic
C - Preferred
D - Commercial
MPS - Dedicated
Previous VPSs
* Sign Up! *

Support
Contact Us
Online Help
Handbooks
Domain Status
Man Pages

FAQ
Virtual Servers
Pricing
Billing
Technical

Network
Facilities
Connectivity
Topology Map

Miscellaneous
Server Agreement
Year 2038
Credits
 

USA Flag

 

 

Man Pages


Manual Reference Pages  -  DBIX::CLASS::MIGRATION::TUTORIAL::SETUP (3)

.ds Aq ’

NAME

DBIx::Class::Migration::Tutorial::Setup - Bootstrap your project files

CONTENTS

GOAL

By the end of this section, you should be able to bootstrap a standard Perl project and have a simple DBIx::Class project installed. You should then be able to proceed to creating some migrations.

Bootstrap your Project

We make minimal use of Dist::Zilla to create a basic project skeleton. I realize Dist::Zilla is not everyone’s favorite tool for this purpose, but I am choosing it for the purpose of the tutorial because its simple enough for my basic need. If you know enough to not like Dist::Zilla then I will assume you know enough to perform this next task using some other tool.

Open a shell / terminal

Most Perl projects use commandline tools, rather than a GUI IDE. You should open a terminal with a commandline interface of choice, change to a directory where you like to store project files (such as $HOME or $HOME/Desktop) and proceed.

Install Dist::Zilla



    cpanm Dist::Zilla



Create a basic Project Skeleton



    dzil new MusicBase
    cd MusicBase



You should now have a directory structure like this:



    /MusicBase
      dist.ini
      /lib
        MusicBase.pm



We will use the dist.ini file to manage our project dependencies. Open dist.ini in your editor of choice and alter it to look like this:



    name    = MusicBase
    author  = John Napiorkowski <jjnapiork@cpan.org>
    license = Perl_5
    copyright_holder = John Napiorkowski
    copyright_year   = 2012
    abstract = Tutorial Application for DBIx-Class-Migration

    version = 0.001

    [@Basic]
    [Prereqs]
    DBIx::Class = 0
    DBIx::Class::Migration = 0



Set author and copyright_holder as suits you.

Next open the file lib/MusicBase.pm in your text editor and change it as follows:



    package MusicBase;

    our $VERSION = 0.001;

    1;

    =head1 NAME

    MusicBase - The DBIx::Class::Migration tutorial application

    =head1 AUTHOR

    John Napiorkowski L<email:jjnapiork@cpan.org>

    =head1 SEE ALSO

    L<DBIx::Class::Migration>

    =head1 COPYRIGHT & LICENSE

    Copyright 2012, John Napiorkowski L<email:jjnapiork@cpan.org>

    This library is free software; you can redistribute it and/or modify it under
    the same terms as Perl itself.

    =cut



As you can see, this is just a stub of POD to help give someone general context.

Going forward, when I say ’do something in your project home directory’, I mean inside this new MusicBase directory which you just made.

Congrats, you have a basic Perl project setup! If you are using a source control tool, you should probably commit.

Install your dependencies

You listed a few dependencies in the dist.ini file you modified above. Let’s get those installed now:



    dzil listdeps | cpanm



Managing your project dependencies via your dist.ini file (or Makefile.PL if you prefer) is considered a community approved best practice.

DBIx::Class Application Version 1

In this section you’ll setup a first version of the MusicBase DBIC files.

The working application we are going to design is called MusicBase which is an application that tracks what Artists have made what CDs and which Tracks are part of which CD. Here’s the general model:



    -- An Artist has zero or more Cds.
    -- Each Cd belongs to a single Artist
    -- Each Cd has zero or more Tracks (or songs you can listen to)
    -- A Track can belong to only one Cd.



Additionally you need to store the Artists name, and the titles for both the Cds and the Tracks.

You also have some business logic that requires you to return the set of Artists that have more than one Cd published. Let’s model that!

From your application home directory (the directory that contains your dist.ini file) perform the following commands:



    mkdir lib/MusicBase
    mkdir lib/MusicBase/Schema
    mkdir lib/MusicBase/Schema/Result
    mkdir lib/MusicBase/Schema/ResultSet
    touch lib/MusicBase/Schema.pm
    touch lib/MusicBase/Schema/Result/Artist.pm
    touch lib/MusicBase/Schema/Result/Cd.pm
    touch lib/MusicBase/Schema/Result/Track.pm
    touch lib/MusicBase/Schema/ResultSet/Artist.pm



You’ll now have a standard DBIx::Class directory structure that follows current good practices. Lets add in some code to our file stubs.

Change lib/MusicBase/Schema.pm to match the following:



    package MusicBase::Schema;

    use strict;
    use warnings;

    use base DBIx::Class::Schema;

    our $VERSION = 1;

    __PACKAGE__->load_namespaces;

    1;



Change lib/MusicBase/Schema/Result/Artist.pm



    package MusicBase::Schema::Result::Artist;

    use strict;
    use warnings;

    use base DBIx::Class::Core;

    __PACKAGE__->table(artist);
    __PACKAGE__->add_columns(
      artist_id => {
        data_type => integer,
      },
      name => {
        data_type => varchar,
        size => 96,
      });

    __PACKAGE__->set_primary_key(artist_id);
    __PACKAGE__->has_many(
      cd_rs => MusicBase::Schema::Result::Cd,
      {foreign.artist_fk=>self.artist_id});

    1;



Change lib/MusicBase/Schema/Result/Cd.pm



    package MusicBase::Schema::Result::Cd;

    use strict;
    use warnings;

    use base qw/DBIx::Class::Core/;

    __PACKAGE__->table(cd);
    __PACKAGE__->add_columns(
      cd_id => {
        data_type => integer,
      },
      artist_fk => {
        data_type => integer,
      },
      title => {
        data_type => varchar,
        size => 96,
      });

    __PACKAGE__->set_primary_key(cd_id);

    __PACKAGE__->belongs_to(
      artist => MusicBase::Schema::Result::Artist,
      {foreign.artist_id=>self.artist_fk});

    __PACKAGE__->has_many(
      track_rs => MusicBase::Schema::Result::Track,
      {foreign.cd_fk=>self.cd_id});

    1;



Change lib/MusicBase/Schema/Result/Track.pm



    package MusicBase::Schema::Result::Track;

    use strict;
    use warnings;

    use base qw/DBIx::Class::Core/;

    __PACKAGE__->table(track);
    __PACKAGE__->add_columns(
      track_id => {
        data_type => integer,
      },
      cd_fk => {
        data_type => integer,
      },
      title => {
        data_type => varchar,
        size => 96,
      });

    __PACKAGE__->set_primary_key(track_id);
    __PACKAGE__->belongs_to(
      cd => "MusicBase::Schema::Result::Cd",
      {foreign.cd_id=>self.cd_fk});

    1;



Change lib/MusicBase/Schema/ResultSet/Artist.pm



    package MusicBase::Schema::ResultSet::Artist;

    use strict;
    use warnings;

    use base DBIx::Class::ResultSet;

    sub has_more_than_one_cds {
      my $me = (my $self = shift)->current_source_alias;
      $self->search(
        {},
        {
          join=>[cd_rs],
          +select=> [ { count => cd_rs.cd_id, -as => cd_count} ],
          +as=> [cd_count],
          group_by=>["$me.artist_id"],
          having => { cd_count => \> 1 }
        }
      );
    }

    1;



That completes creating your basic DBIx::Class structure.

Basic Test Case

You should create a basic test case just to make sure you didn’t make any serious errors or forgot something while creating the files.



    mkdir t
    touch t/use.t



Change t/use.t as follows



    #!/usr/bin/env perl

    use Test::Most tests=>1;

    BEGIN {
      use_ok MusicBase::Schema;
    }



Then run your test case.



    prove -lv t/use.t



You should expect the one test to pass. If it fails, please review your classes since you probably introduced a typo or syntax error.

If your tests pass, that’s great you’ve completed the first part of the tutorial!

SUMMARY

You did a lot of cut and paste this step, I promise things will be more interesting later on. However, you did all the main grunt work that it takes to get going on a well formed Perl project. At this point you have a DBIC application that you’d actually be able to use.

NEXT STEPS

Proceed to DBIx::Class::Migration::Tutorial::FirstMigration.

AUTHOR

See DBIx::Class::Migration for author information

COPYRIGHT & LICENSE

See DBIx::Class::Migration for copyright and license information
Search for    or go to Top of page |  Section 3 |  Main Index


perl v5.20.3 DBIX::CLASS::MIGRATION::TUTORIAL::SETUP (3) 2015-03-24

Powered by GSP Visit the GSP FreeBSD Man Page Interface.
Output converted with manServer 1.07.