Description: Add debian_text method
 This method returns the license summary (if available)
 or the full license text.
Author: dod
--- a/lib/Software/License.pm
+++ b/lib/Software/License.pm
@@ -82,6 +82,18 @@
     $self->_fill_in(uc($distro).'-SUMMARY');
 }
 
+sub debian_text {
+    my ($self,$distro) = @_;
+    $distro ||= 'debian' ;
+
+    my $summary_tag = uc($distro).'-SUMMARY';
+    my $fill_in_tag 
+        =  $self->section_data($summary_tag) ? $summary_tag 
+        :                                      'LICENSE' ;
+
+    $self->_fill_in($fill_in_tag);
+}
+
 #pod =method license
 #pod
 #pod This method returns the full text of the license.
@@ -276,6 +288,11 @@
 containing the whole license will be in C</usr/share/common-licenses/>
 directory. (Available only on Debian)
 
+=head2 debian_text
+
+This method returns a summary of the license (if available) or the full text
+of the license (Available only on Debian)
+
 =head2 license
 
 This method returns the full text of the license.
--- /dev/null
+++ b/t/debian-text.t
@@ -0,0 +1,29 @@
+#!perl
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+# try LGP2 license
+
+my $class = 'Software::LicenseUtils';
+require_ok($class);
+
+{
+    my $license = $class->new_from_short_name({
+        short_name => 'LGPL-2',
+        holder => 'X. Ample'
+    });
+
+    like($license->debian_text, qr/common-licenses/i, 'summary found');
+
+}
+{
+    my $license = $class->new_from_short_name({
+        short_name => 'Expat',
+        holder => 'X. Ample'
+    });
+
+    like($license->debian_text, qr/substantial/i, 'license text found');
+
+}
