rolling in pause dist

Author: ChtrMshipper

Changes

@@ -36,3 +36,5 @@
 1.011 
   -- Removed old vendor doc links
   -- Added missing meetings api and pod
+1.012
+  -- Added uploadFile interface

META.json

@@ -63,6 +63,6 @@
       }
    },
    "release_status" : "stable",
-   "version" : "1.011",
+   "version" : "1.012",
    "x_serialization_backend" : "JSON::PP version 4.04"
 }

META.yml

@@ -45,5 +45,5 @@ requires:
   UUID::Tiny: '1.04'
   namespace::clean: '0.27'
   overload: '1.28'
-version: '1.011'
+version: '1.012'
 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

lib/AnyEvent/HTTP/Spark.pm

@@ -1385,6 +1385,47 @@ Example Callback
 
 =back
 
+=head1 Attaching files to messages
+
+Posting files to channel steps outside of the traditional json data format. 
+
+=over 4 
+
+=item * Blocking my $result=$self->uploadFile('/path/to/file',%args);
+
+Returns a L<Data::Result> Object, when true it contains the data, when false it contains why it failed.
+
+=item * Non-Blocking my $result=$self->que_uploadFile($cb,'/path/to/file',%args);
+
+Example Callback
+
+  $cb=sub {
+    my ($self,$id,$result,$request,$response,$roomId,$hashRef)=@_;
+      # 0: $self The current AnyEvent::HTTP::Slack object
+      # 1: $id the id of the http request
+      # 2: Data::Result Object
+      # 3: HTTP::Request Object
+      # 4: HTTP::Result Object
+    };
+
+=back
+
+=cut
+
+sub que_uploadFile {
+  my ($self,$cb,$file,%args)=@_;
+
+  my $post=[
+    %args,
+    files=>[$file],
+  ];
+
+  my $url=$self->api_url.'messages';
+  my $request=POST($url,Content_type=>'form-data',Content=>$post);
+  $request->header(Authorization=>"Bearer ".$self->token);
+  return $self->queue_request($request,$cb);
+}
+
 =head1 Low Level Request functions
 
 This section documents low level request functions.

lib/AnyEvent/SparkBot.pm

@@ -1,6 +1,6 @@
 package AnyEvent::SparkBot;
 
-our $VERSION='1.011';
+our $VERSION='1.012';
 use Modern::Perl;
 use Moo;
 use MooX::Types::MooseLike::Base qw(:all);