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 covered4
Number of lines with code gen4
Line coverage100%


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.