Coverage report for Casbin.Core.Logger.Default.
Generated at 18/02/2019 12:10:19 by DelphiCodeCoverage - an open source tool for Delphi Code Coverage.
Statistics for Casbin.Core.Logger.Default.pas
| Number of lines covered | 4 |
| Number of lines with code gen | 4 |
| Line coverage | 100% |
| 1 | // Copyright 2018 by John Kouraklis and Contributors. All Rights Reserved. |
| 2 | // |
| 3 | // Licensed under the Apache License, Version 2.0 (the "License"); |
| 4 | // you may not use this file except in compliance with the License. |
| 5 | // You may obtain a copy of the License at |
| 6 | // |
| 7 | // http://www.apache.org/licenses/LICENSE-2.0 |
| 8 | // |
| 9 | // Unless required by applicable law or agreed to in writing, software |
| 10 | // distributed under the License is distributed on an "AS IS" BASIS, |
| 11 | // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. |
| 12 | // See the License for the specific language governing permissions and |
| 13 | // limitations under the License. |
| 14 | unit Casbin.Core.Logger.Default; |
| 15 | |
| 16 | interface |
| 17 | |
| 18 | uses |
| 19 | Casbin.Core.Logger.Base; |
| 20 | |
| 21 | type |
| 22 | TDefaultLogger = class (TBaseLogger) |
| 23 | public |
| 24 | procedure log(const aMessage: string); override; |
| 25 | end; |
| 26 | |
| 27 | implementation |
| 28 | |
| 29 | {$IFDEF MSWINDOWS} |
| 30 | uses |
| 31 | Winapi.Windows; |
| 32 | {$ENDIF} |
| 33 | |
| 34 | { TDefaultLogger } |
| 35 | |
| 36 | procedure TDefaultLogger.log(const aMessage: string); |
| 37 | begin |
| 38 | inherited; |
| 39 | {$IFDEF MSWINDOWS} |
| 40 | {$IFDEF DEBUG} |
| 41 | OutputDebugString(PChar(aMessage)); |
| 42 | {$ENDIF} |
| 43 | {$ENDIF} |
| 44 | end; |
| 45 | |
| 46 | end. |