From 430e6c16eb07531df436a42e34a667477c3e469a Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Wed, 17 Jun 2020 16:59:45 +0530
Subject: Add UnsplashSource.pm

---
 lib/UnsplashSource.pm | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 lib/UnsplashSource.pm

diff --git a/lib/UnsplashSource.pm b/lib/UnsplashSource.pm
new file mode 100644
index 0000000..bce5c59
--- /dev/null
+++ b/lib/UnsplashSource.pm
@@ -0,0 +1,81 @@
+#!/usr/bin/perl
+
+package UnsplashSource;
+
+use strict;
+use warnings;
+
+use HTTP::Tiny;
+use Carp qw( croak carp );
+
+my $api = "https://source.unsplash.com";
+my $http = HTTP::Tiny->new(
+    agent => "crux - UnsplashSource.pm - HTTP::Tiny",
+    max_redirect => 0,
+    verify_SSL => 1,
+    timeout => 60,
+
+);
+
+sub get {
+    my ( %options ) = @_;
+
+    if ( $options{daily} or $options{weekly} ) {
+        return fixed( %options );
+    } elsif ( $options{user} ) {
+        return user_random( %options );
+    } elsif ( ( scalar @{$options{search}} > 0 )
+                  or $options{featured} ) {
+        return random_search( %options );
+    } elsif ( $options{collection_id} ) {
+        return collection( %options );
+    } else {
+        return get_random( %options );
+    }
+}
+
+sub get_random {
+    my ( %options ) = @_;
+    my $url = "$api/random/$options{resolution}";
+    return $http->head($url);
+}
+
+sub random_search {
+    my ( %options ) = @_;
+    my $url = "$api/";
+    $url .= "featured/" if $options{featured};
+    $url .= $options{resolution};
+    $url .= "?";
+    $url .= "$_," foreach ( @{$options{search}});
+    return $http->head($url);
+}
+
+sub user_random {
+    my ( %options ) = @_;
+    my $url = "$api/user/$options{user}/";
+    $url .= "likes/" if $options{user_likes};
+    $url .= $options{resolution};
+    return $http->head($url);
+}
+
+sub collection {
+    my ( %options ) = @_;
+    my $url = "$api/collection/$options{collection_id}/";
+    $url .= $options{resolution};
+    return $http->head($url);
+}
+
+sub fixed {
+    my ( %options ) = @_;
+    croak "Cannot use daily & weekly together"
+        if $options{daily} and $options{weekly};
+    my $url = "$api/";
+    $url .= "user/$options{user}/" if $options{user};
+    $url .= "daily/" if $options{daily};
+    $url .= "weekly/" if $options{weekly};
+    $url .= "?";
+    $url .= "$_," foreach ( @{$options{search}});
+    return $http->head($url);
+}
+
+1;
-- 
cgit 1.4.1-2-gfad0