# Created by DBIx::Class::Schema::Loader v0.03009 @ 2007-03-04 02:50:46 # @(#)$Id: Authentication.pm 1288 2012-03-29 00:20:38Z pjf $ package App::Munchies::Schema::Authentication; use strict; use warnings; use version; our $VERSION = qv( sprintf '0.6.%d', q$Rev: 1288 $ =~ /\d+/gmx ); use parent qw(DBIx::Class::Schema); use File::Spec; __PACKAGE__->load_classes; sub ddl_filename { my ($self, $type, $version, $dir, $preversion) = @_; ($dir, $version) = ($version, $dir) if ($DBIx::Class::VERSION < 0.08100); (my $filename = (ref $self || $self)) =~ s{ :: }{-}gmx; $version = join q(.), (split m{ [.] }mx, $version)[ 0, 1 ]; $preversion and $version = $preversion.q(-).$version; return File::Spec->catfile( $dir, "$filename-$version-$type.sql" ); } 1; __END__ =pod =head1 Name App::Munchies::Schema::Authentication - Schema base class =head1 Version 0.6.$Revision: 1288 $ =head1 Synopsis use <Module::Name>; # Brief but working code examples =head1 Description =head1 Subroutines/Methods =head2 ddl_filename =head1 Diagnostics =head1 Configuration and Environment =head1 Dependencies =over 3 =item L<Class::Accessor::Fast> =back =head1 Incompatibilities There are no known incompatibilities in this module =head1 Bugs and Limitations There are no known bugs in this module. Please report problems to the address below. Patches are welcome =head1 Author Peter Flanigan, C<< <Support at RoxSoft.co.uk> >> =head1 License and Copyright Copyright (c) 2008 Peter Flanigan. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See L<perlartistic> This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE =cut # Local Variables: # mode: perl # tab-width: 3 # End: