Added use strict / use warnings everywhere it was missing
[dbsrgits/DBIx-Class-Historic.git] / lib / DBIx / Class / UUIDMaker.pm
1 package DBIx::Class::UUIDMaker;
2
3 use strict;
4 use warnings;
5
6 sub new {
7     return bless {}, shift;
8 };
9
10 sub as_string {
11     return undef;
12 };
13
14 1;
15 __END__
16
17 =head1 NAME
18
19 DBIx::Class::UUIDMaker - UUID wrapper module
20
21 =head1 SYNOPSIS
22
23   package CustomUUIDMaker;
24   use base qw/DBIx::Class::/;
25
26   sub as_string {
27     my $uuid;
28     ...magic encantations...
29     return $uuid;
30   };
31
32 =head1 DESCRIPTION
33
34 DBIx::Class::UUIDMaker is a base class used by the various uuid generation
35 subclasses.
36
37 =head1 METHODS
38
39 =head2 as_string
40
41 Returns the new uuid as a string.
42
43 =head1 SEE ALSO
44
45 L<DBIx::Class::UUIDMaker>,
46 L<DBIx::Class::UUIDMaker::UUID>,
47 L<DBIx::Class::UUIDMaker::APR::UUID>,
48 L<DBIx::Class::UUIDMaker::Data::UUID>,
49 L<DBIx::Class::UUIDMaker::Win32::Guidgen>,
50 L<DBIx::Class::UUIDMaker::Win32API::GUID>,
51 L<DBIx::Class::UUIDMaker::Data::Uniqid>
52
53 =head1 AUTHOR
54
55 Chris Laco <claco@chrislaco.com>
56
57 =head1 LICENSE
58
59 You may distribute this code under the same terms as Perl itself.