Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
awit-frameworks
awit-perl-toolkit
Commits
8740ffad
Commit
8740ffad
authored
Apr 18, 2017
by
Nigel Kukard
Browse files
Debugging cleanup
parent
9e5bee47
Changes
1
Hide whitespace changes
Inline
Side-by-side
lib/AWITPT/DataObj.pm
View file @
8740ffad
...
...
@@ -1105,7 +1105,7 @@ sub clone
my
(
$self
,
@data
)
=
@_
;
$self
->
_log
(
DATAOBJ_LOG_DEBUG
,"
Cloning
%s
",
ref
(
$self
)
);
$self
->
_log
(
DATAOBJ_LOG_DEBUG
,"
Cloning
"
);
# Setup our internals
my
$clone
=
{
...
...
@@ -1203,7 +1203,7 @@ sub _init
# Grab our configuration
my
$config
=
$self
->
config
();
$self
->
_log
(
DATAOBJ_LOG_DEBUG
,"
Initializing object
'%s'
",
ref
(
$self
)
);
$self
->
_log
(
DATAOBJ_LOG_DEBUG
,"
Initializing object
"
);
# Set everything blank before we begin
$self
->
{'
_options
'}
=
0
;
...
...
@@ -1340,13 +1340,13 @@ sub _init
# Check we have everything
if
(
!
defined
(
$class
))
{
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
DataObj '%s' r
elation '%s' has no attribute 'class'
",
ref
(
$self
),
$relationName
);
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
R
elation '%s' has no attribute 'class'
",
$relationName
);
}
if
(
!
defined
(
$type
))
{
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
DataObj '%s' r
elation '%s' has no attribute 'type'
",
ref
(
$self
),
$relationName
);
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
R
elation '%s' has no attribute 'type'
",
$relationName
);
}
if
(
!
defined
(
$associations
))
{
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
DataObj '%s' r
elation '%s' has no attribute 'associate'
",
ref
(
$self
),
$relationName
);
$self
->
_log
(
DATAOBJ_LOG_ERROR
,"
R
elation '%s' has no attribute 'associate'
",
$relationName
);
}
$self
->
_log
(
DATAOBJ_LOG_DEBUG2
,"
- Relation '%s' => '%s' [%s]
",
$relationName
,
$class
,
$type
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment