Merge pull request #29 from ipinfo/usama/inline-json-data

Inline Data Files

.github/workflows/cd_cpan.yml

@@ -21,7 +21,7 @@ jobs:
       - name: Test and build
         run: |
           cd Geo-IPinfo
-          cpanm ExtUtils::MakeMaker LWP::UserAgent JSON File::ShareDir::Install Cache::LRU File::Share Net::CIDR::Lite
+          cpanm ExtUtils::MakeMaker LWP::UserAgent JSON File::ShareDir::Install Cache::LRU File::Share Net::CIDR Net::CIDR::Set
           perl Makefile.PL && RELEASE_TESTING=TRUE make test && make distcheck && make dist
       
       - name: Upload to CPAN

Geo-IPinfo/Changes

@@ -17,3 +17,6 @@ Revision history for Geo-IPinfo
 
 2.1.3   Aug 09, 2023
         Enabled JSON encoding and updated docs
+
+3.0.0   Nov 22, 2023
+        Inlined data files

Geo-IPinfo/MANIFEST

@@ -10,8 +10,3 @@ t/manifest.t
 t/pod-coverage.t
 t/pod.t
 xt/boilerplate.t
-share/countries.json
-share/continent.json
-share/currency.json
-share/eu.json
-share/flags.json

Geo-IPinfo/Makefile.PL

@@ -26,7 +26,8 @@ WriteMakefile(
         'File::ShareDir::Install' => '0',
         'Cache::LRU'              => '0',
         'File::Share'             => '0',
-        'Net::CIDR::Lite'         => '0',
+        'Net::CIDR'               => '0',      
+        'Net::CIDR::Set'          => '0',
     },
     dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
     clean => { FILES => 'Geo-IPinfo-*' },

Geo-IPinfo/lib/Geo/Details.pm

@@ -15,8 +15,8 @@ sub new {
         return $data;
     }
 
-# If $data is a plain string, create a new hash reference and set the specified key to the string value.
-# Use the provided key or default to ''.
+    # If $data is a plain string, create a new hash reference and set the specified key to the string value.
+    # Use the provided key or default to ''.
     my $self = { $key => $data };
     bless $self, $class;
     return $self;
@@ -173,6 +173,10 @@ Creates a new Geo::Details object. If C<$data> is a hash reference, it directly
 
 C<$key> is an optional parameter used when C<$data> is a plain string. It defaults to an empty string if not provided.
 
+=head2 TO_JSON
+
+This method is used to convert the object to a JSON representation.
+
 =head2 abuse
 
     my $abuse_email = $geo_details->abuse();