1 |
package Torus::Map::Outlook; |
2 |
|
3 |
use strict; |
4 |
use warnings; |
5 |
|
6 |
sub new { |
7 |
my $invocant = shift; |
8 |
my $class = ref($invocant) || $invocant; |
9 |
#bless $self, "BizWorks::SatelliteMapping"; |
10 |
my $self = { @_ }; |
11 |
bless $self, $class; |
12 |
return $self; |
13 |
} |
14 |
|
15 |
|
16 |
sub ContactItem { |
17 |
return { |
18 |
target => 'Adressen', |
19 |
source_ident => 'storage_method:id', |
20 |
target_ident => 'property:rid', |
21 |
details => [ |
22 |
[ 'source:ckey' => 'target:rkey' ], |
23 |
[ 'source:cname' => 'target:rval' ], |
24 |
], |
25 |
}; |
26 |
} |
27 |
|
28 |
1; |