view release on metacpan or  search on metacpan

lib/App/SD/Replica/gcode.pm  view on Meta::CPAN

16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
    summary    => 'summary',
    status     => 'status',
    owner      => 'owner',
    reporter   => 'reporter',
    cc         => 'cc',
    closed     => 'completed',
    reported   => 'created',
    labels     => 'tags',
    priority   => 'priority',
    mergedinto => 'merged_into',
    blockedon  => 'blocked_on',
);
 
 
has query            => ( isa => 'Str', is               => 'rw');
has gcode            => ( isa => 'Net::Google::Code', is => 'rw');
has project          => ( isa => 'Str', is               => 'rw');
has foreign_username => ( isa => 'Str', is               => 'rw' );
 
sub remote_url { return "http://code.google.com/p/".shift->project}

lib/App/SD/Replica/gcode/PushEncoder.pm  view on Meta::CPAN

178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
}
 
sub _recode_props_for_integrate {
    my $self = shift;
    my ($change) = validate_pos( @_, { isa => 'Prophet::Change' } );
 
    my %props = map { $_->name => $_->new_value } $change->prop_changes;
    my %attr;
 
    for my $key ( keys %props ) {
        if ( $key =~ /^(summary|owner|cc|blocked_on)/ ) {
            $attr{$key} = $props{$key};
        }
        elsif ( $key eq 'status' ) {
            $attr{$key} = ucfirst $props{$key};
        }
        elsif ( $key eq 'merged_into' ) {
        # yeah, the comment form use 'merge_into' name
            $attr{merge_into} = $props{$key};
        }
        elsif ( $key eq 'tags' ) {