From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

XERXES / Microsoft-AdCenter-8.11 / lib / Microsoft / AdCenter / V6 / CustomerManagementService / AdCenterCardInvoiceHandle.pm 

            

              
1
2
3
4
5
6
7
8
9
—
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
—
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

              
package Microsoft::AdCenter::V6::CustomerManagementService::AdCenterCardInvoiceHandle;
# Copyright (C) 2012 Xerxes Tsang
# This program is free software; you can redistribute it and/or modify it
# under the terms of Perl Artistic License.
use strict;
use warnings;
use base qw/Microsoft::AdCenter::ComplexType/;
=head1 NAME
Microsoft::AdCenter::V6::CustomerManagementService::AdCenterCardInvoiceHandle - Represents "AdCenterCardInvoiceHandle" in Microsoft AdCenter Customer Management Service.
=cut
sub _type_name {
    return 'AdCenterCardInvoiceHandle';
}
sub _namespace_uri {
    return 'http://adcenter.microsoft.com/syncapis';
}
our @_attributes = (qw/
    AccountId
    BillingDocumentId
    CustomerId
    EndDateTicks
    NoActivity
    StartDateTicks
    UserId
/);
sub _attributes {
    my $self = shift;
    return ($self->SUPER::_attributes, @_attributes);
}
our %_attribute_type = (
    AccountId => 'int',
    BillingDocumentId => 'int',
    CustomerId => 'int',
    EndDateTicks => 'long',
    NoActivity => 'short',
    StartDateTicks => 'long',
    UserId => 'int',
);
sub _attribute_type {
    my ($self, $attribute) = @_;
    if (exists $_attribute_type{$attribute}) {
        return $_attribute_type{$attribute};
    }
    return $self->SUPER::_attribute_type($attribute);
}
our %_attribute_min_occurs = (
    AccountId => 1,
    BillingDocumentId => 1,
    CustomerId => 1,
    EndDateTicks => 1,
    NoActivity => 1,
    StartDateTicks => 1,
    UserId => 1,
);
sub _attribute_min_occurs {
    my ($self, $attribute) = @_;
    if (exists $_attribute_min_occurs{$attribute}) {
        return $_attribute_min_occurs{$attribute};
    }
    return $self->SUPER::_attribute_min_occurs($attribute);
}
__PACKAGE__->mk_accessors(@_attributes);
1;
=head1 SYNOPSIS
See L<http://msdn.microsoft.com/en-us/library/ee730327.aspx> for documentation of the various data objects.
=cut
=head1 METHODS
=head2 new
Creates a new instance
=head2 AccountId
Gets/sets AccountId (int)
=head2 BillingDocumentId
Gets/sets BillingDocumentId (int)
=head2 CustomerId
Gets/sets CustomerId (int)
=head2 EndDateTicks
Gets/sets EndDateTicks (long)
=head2 NoActivity
Gets/sets NoActivity (short)
=head2 StartDateTicks
Gets/sets StartDateTicks (long)
=head2 UserId
Gets/sets UserId (int)
=cut