1DBIx::Class::Storage::DUBsIe:r:OCroanctlrei:bD:uBGtIeexnd:e:rPCielcra(ls3s)D:o:cSutmoernatgaet:i:oDnBI::Oracle::Generic(3)
2
3
4
6 DBIx::Class::Storage::DBI::Oracle::Generic - Oracle Support for
7 DBIx::Class
8
10 # In your result (table) classes
11 use base 'DBIx::Class::Core';
12 __PACKAGE__->add_columns({ id => { sequence => 'mysequence', auto_nextval => 1 } });
13 __PACKAGE__->set_primary_key('id');
14 __PACKAGE__->sequence('mysequence');
15
17 This class implements base Oracle support. The subclass
18 DBIx::Class::Storage::DBI::Oracle::WhereJoins is for "(+)" joins in
19 Oracle versions before 9.
20
22 get_autoinc_seq
23 Returns the sequence name for an autoincrement column
24
25 columns_info_for
26 This wraps the superclass version of this method to force table names
27 to uppercase
28
29 datetime_parser_type
30 This sets the proper DateTime::Format module for use with
31 DBIx::Class::InflateColumn::DateTime.
32
33 connect_call_datetime_setup
34 Used as:
35
36 on_connect_call => 'datetime_setup'
37
38 In "connect_info" in DBIx::Class::Storage::DBI to set the session nls
39 date, and timestamp values for use with
40 DBIx::Class::InflateColumn::DateTime and the necessary environment
41 variables for DateTime::Format::Oracle, which is used by it.
42
43 Maximum allowable precision is used, unless the environment variables
44 have already been set.
45
46 These are the defaults used:
47
48 $ENV{NLS_DATE_FORMAT} ||= 'YYYY-MM-DD HH24:MI:SS';
49 $ENV{NLS_TIMESTAMP_FORMAT} ||= 'YYYY-MM-DD HH24:MI:SS.FF';
50 $ENV{NLS_TIMESTAMP_TZ_FORMAT} ||= 'YYYY-MM-DD HH24:MI:SS.FF TZHTZM';
51
52 To get more than second precision with
53 DBIx::Class::InflateColumn::DateTime for your timestamps, use something
54 like this:
55
56 use Time::HiRes 'time';
57 my $ts = DateTime->from_epoch(epoch => time);
58
59 source_bind_attributes
60 Handle LOB types in Oracle. Under a certain size (4k?), you can get
61 away with the driver assuming your input is the deprecated LONG type if
62 you encode it as a hex string. That ain't gonna fly at larger values,
63 where you'll discover you have to do what this does.
64
65 This method had to be overridden because we need to set ora_field to
66 the actual column, and that isn't passed to the call (provided by
67 Storage) to bind_attribute_by_data_type.
68
69 According to DBD::Oracle, the ora_field isn't always necessary, but
70 adding it doesn't hurt, and will save your bacon if you're modifying a
71 table with more than one LOB column.
72
73 relname_to_table_alias
74 DBIx::Class uses DBIx::Class::Relationship names as table aliases in
75 queries.
76
77 Unfortunately, Oracle doesn't support identifiers over 30 chars in
78 length, so the DBIx::Class::Relationship name is shortened and appended
79 with half of an MD5 hash.
80
81 See "relname_to_table_alias" in DBIx::Class::Storage.
82
83 with_deferred_fk_checks
84 Runs a coderef between:
85
86 alter session set constraints = deferred
87 ...
88 alter session set constraints = immediate
89
90 to defer foreign key checks.
91
92 Constraints must be declared "DEFERRABLE" for this to work.
93
95 See "CONTRIBUTORS" in DBIx::Class.
96
98 You may distribute this code under the same terms as Perl itself.
99
100
101
102perl v5.12.0 D2B0I1x0:-:0C5l-a1s2s::Storage::DBI::Oracle::Generic(3)